New in Wolfram Mathematica 7: New Categories of Special Functions  previous | next 
Dirichlet Character Sequence
Plot all the Dirichlet characters modulo 7.
In[1]:=

Click for copyable input
GraphicsGrid[

 Partition[

  Table[DiscretePlot[{Re[DirichletCharacter[7, i, k]], 

     Im[DirichletCharacter[7, i, k]]}, {k, 50}, 

    PlotLabel -> Row[{Subscript[\[Chi], 7, i], "(k)"}]], {i, 

    EulerPhi[7]}], 3]]
Out[1]=