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,2

Comments

There is a possibility that these polynomials also represent groups?

Links

Table of n, a(n) for n=1..27.

Formula

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

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]}]

Crossrefs

Cf. A047845.

Sequence in context: A077482 A141428 A371344 * A080663 A248118 A320648

Adjacent sequences: A104082 A104083 A104084 * A104086 A104087 A104088

Keyword

nonn,uned

Author

Roger L. Bagula, May 16 2007

Status

approved