1,1

Establishes a direct link between the exponents m(i) in the Poincare polynomial representations the group dimension.

P[n]=Poincare-Polynomial[n]=Product[1+t^A129766[m],{m,1,n}] Dim[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: A098521 A084150 A056076 this_sequence A083874 A105331 A017946

Adjacent sequences: A117130 A117131 A117132 this_sequence A117134 A117135 A117136

nonn,uned

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 17 2007