|
%I #11 Sep 23 2023 04:29:38
%S 1,1,1,1,1,1,3,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1,1,1,2,1,1,1,1,1,1,1,1,3,
%T 1,1,2,1,1,1,1,1,2,2,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,7,1,1,1,1,1,1,1,
%U 2,2,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,3,1,3,1,1,2,1,1,3,1,1,2,1,1,1,1,1,1,1,1
%N Number of Abelian groups of order 4n+3.
%t a[n_] := FiniteAbelianGroupCount[4*n + 3]; Array[a, 100, 0] (* _Amiram Eldar_, Sep 23 2023 *)
%Y Bisection of A101871.
%Y Cf. A101873, A101876.
%K nonn,easy
%O 0,7
%A _N. J. A. Sloane_, Jan 28 2005
%E More terms from _Joshua Zucker_, May 10 2006
|
