A104085 Coefficient list length of Poincaré-like polynomials made from A047845, indices of odd nonprimes (group dimension equivalent plus one).

1, 2, 11, 26, 47, 72, 99, 132, 167, 206, 251, 300, 351, 406, 463, 526, 591, 660, 735, 812, 893, 978, 1065, 1156, 1249, 1344, 1443

Offset: 1

Author

Roger L. Bagula, May 16 2007

Keywords

• nonn
• uned

Comments

There is a possibility that these polynomials also represent groups?

Crossrefs

Cf. A047845.

Programs

Mathematica

(* Make A047845*) a = Flatten[Table[If[PrimeQ[2*n + 1] == False, n, {}], {n, 0, 50}]]; (* find lengths of polynomials*) Table[Length[CoefficientList[Product[1 + t^(2*a[[n]] + 1), {n, 1, m}], t]], { m, 0, Length[a]}]

Formula

P(m)=Product[1 + t^(2*A047845(n) + 1), {n, 1, m}] a(n) =Length[CoefficientList[P(n),x]]