GraphicsGrid[{{DiscretePlot[FiniteGroupCount[n], {n, 1, 100},
PlotLabel -> Style[FiniteGroupCount[n], 8]],
DiscretePlot[FiniteAbelianGroupCount[n], {n, 1, 100},
PlotLabel ->
Style[FiniteAbelianGroupCount[n], 8]]}, {ListLinePlot[
Table[FiniteGroupCount[n] - FiniteAbelianGroupCount[n], {n, 1,
100}], PlotRange -> All, PlotLabel -> Style["Difference", 8]],
ListLogPlot[{Accumulate[FiniteGroupCount[Range[1000]]],
Accumulate[FiniteAbelianGroupCount[Range[1000]]]},
PlotLabel -> Style["Cumulative Sums", 8]]}}, Spacings -> {1, 7},
Frame -> True]