|
%I #7 Jul 19 2015 09:59:23
%S 1,2,7,18,31,48,71,96,125,158,193,232,273,316,363,416,475,536,599,664,
%T 731,802,875,952,1033,1116,1201,1290,1383,1478,1579
%N Coefficient list length of Poincaré-like polynomials made from A047845, indices of 4*n+1 nonprimes as the m(i) exponents.
%F P(m) = Product[1 + t^(2*A045751(n) + 1), {n, 1, m}] a(n) = Length[CoefficientList[P(n),x]].
%t a = Flatten[Table[If[PrimeQ[4*n + 1] == False, n, {}], {n, 0, 50}]]; Table[Length[CoefficientList[Product[1 + t^(2*a[[n]] + 1), {n, 1, m}], t]], { m, 0, Length[a]}]
%Y Cf. A045751.
%K nonn,uned
%O 1,2
%A _Roger L. Bagula_, May 16 2007
|
