New in Wolfram Mathematica 7: New Number Theory Capabilities  previous | next 
Compute Dirichlet Character Tables
Compute Dirichlet character tables for any modulus.
In[1]:=

Click for copyable input
CharacterTable[m_] := 

 Table[DirichletCharacter[m, j, n], {j, EulerPhi[m]}, {n, 0, m - 1}]
In[2]:=

Click for copyable input
CharacterGrid[m_] := 

 Labeled[Text@

   TraditionalForm@

    Grid[ArrayFlatten[{{{{Row[{\[Chi][n], n}, "\\"]}}, {Table[

          j, {j, 0, m - 1}]}}, {Table[{Subscript[\[Chi], i][n]}, {i, 

          EulerPhi[m]}], CharacterTable[m]}}], Dividers -> All, 

     Spacings -> 1], Text@Row[{"Modulus ", m}]]
In[3]:=

Click for copyable input
Manipulate[CharacterGrid[m], {{m, 11, "Modululs"}, 1, 12, 1}, 

 SaveDefinitions -> True]
Out[3]=