|
Search: id:A107615
|
|
|
| A107615 |
|
Coefficient list length of Poincare-like polynomials made from A047845, indices of 4*n+1 nonprimes as the m(i) exponents. |
|
+0
1
|
|
| 1, 2, 7, 18, 31, 48, 71, 96, 125, 158, 193, 232, 273, 316, 363, 416, 475, 536, 599, 664, 731, 802, 875, 952, 1033, 1116, 1201, 1290, 1383, 1478, 1579
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
P(m)=Product[1 + t^(2*A045751(n) + 1), {n, 1, m}] a(n) =Length[CoefficientList[P(n),x]]
|
|
MATHEMATICA
|
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]}]
|
|
CROSSREFS
|
Cf. A045751.
Sequence in context: A013092 A104310 A001114 this_sequence A136583 A141631 A077131
Adjacent sequences: A107612 A107613 A107614 this_sequence A107616 A107617 A107618
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 16 2007
|
|
|
Search completed in 0.002 seconds
|
