OFFSET
0,1
EXAMPLE
-3/x^7 - 2 + 3*x -3*x^8 - 4*x^15 + 3*x^16 - 3*x^23 - 3*x^24 - 4*x^30 + ...
MATHEMATICA
Table[SeriesCoefficient[
Series[(1 + 2*Product[1 + x^(8*i - 1), {i, 1, Infinity}])/(-1 +
Product[(1 - x^(8*i - 1)), {i, 1, Infinity}]), {x, 0, 100}],
n], {n, 0, 100}]
CROSSREFS
KEYWORD
sign,less
AUTHOR
Roger L. Bagula, Feb 23 2012
STATUS
approved