OFFSET
1,1
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 1..2611
MATHEMATICA
nmax = 1000; A284896 = Rest[CoefficientList[Series[Product[1/(1 + x^k)^(k^2), {k, 1, nmax}], {x, 0, nmax}], x]]; csign = {1}; Do[If[(A284896[[n]] < 0 && A284896[[n+1]] >= 0) || (A284896[[n]] >= 0 && A284896[[n+1]] < 0), csign = Flatten[{csign, n + 1}]], {n, 1, Length[A284896] - 1}]; Differences[csign]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Apr 14 2017
STATUS
approved