|
%I #18 Sep 14 2014 10:30:58
%S 1,2,4,12,36,144,288,1440,3840,9216,120384,700416,5455872,65015808,
%T 188018688,439805952,1098528768,31016134656,324642484224,
%U 12673570111488,75959807901696,1301903865544704,2870722110554112,32326598156353536,193916357676367872
%N Number of groups of order p#, where p# is the n-th primorial.
%C Used as an example in the Mathematica Help file for the function: FiniteGroupCount.
%H Eric M. Schmidt, <a href="/A195733/b195733.txt">Table of n, a(n) for n = 1..50</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/FiniteGroup.html">Finite Group</a>
%F a(n) = A000001(A002110(n)). - _Michel Marcus_, Sep 14 2014
%t f[n_] := FiniteGroupCount[Times @@ Prime@ Range@ n]; Array[f, 20]
%Y Cf. A000001, A002110.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 30 2011
%E More terms from _Eric M. Schmidt_, Sep 14 2014
|
