OFFSET
0,7
MATHEMATICA
nmax = 46; CoefficientList[Series[Sum[x^(k^2)/Product[(1 + j x^j), {j, 1, k}], {k, 0, nmax}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Mar 05 2019
STATUS
approved