1,1

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

P(n) = Poincare-Polynomial(n) = Product_{m=1..n} (1 + t^A129766(m)); a(n) = Length(CoefficientList(P(n),t)) - 1.

a[0] = {1};

a[1] = {1, 5};

a[2] = {1, 5, 7, 11};

a[3] = {1, 4, 5, 7, 8, 11};

a[4] = {1, 5, 7, 9, 11, 13, 17};

a[5] = {1, 7, 11, 13, 17, 19, 23, 29};

b0 = Table[Length[CoefficientList[Expand[Product[(1 + t^(2*a[i][[n]] + 1)), {n, 1, Length[a[i]]}]], t]] - 1, {i, 0, 5}]

Cf. A129766.

Sequence in context: A322199 A192882 A056076 * A238226 A083874 A105331

Adjacent sequences: A117130 A117131 A117132 * A117134 A117135 A117136

nonn,fini,full,uned

Roger L. Bagula, May 17 2007

approved