New in Wolfram Mathematica 7: Finite Group Theory  previous | next 
Find the Number of Abelian Finite Groups of a Given Order
The first hundred values of FiniteAbelianGroupCount.
In[1]:=

Click for copyable input
Text @ TraditionalForm @ 

  Grid[Partition[Table[FiniteAbelianGroupCount[n], {n, 300}], 16], 

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