New in Wolfram Mathematica 7: Finite Group Theory ◄ previous | next ►
Compute the Number of Non-Abelian Groups of a Given Order
Compute the number of non-Abelian groups of a given order.
In[1]:=

Click for copyable input
Text @ TraditionalForm @ 

  Grid[Partition[

    Table[FiniteGroupCount[n] - FiniteAbelianGroupCount[n], {n, 300}],

     15], Frame -> All, ItemSize -> Full]
Out[1]=