OFFSET
0,5
MAPLE
a:=series(add(x^(k^2)/mul((1-x^j)^j, j=1..k), k=0..100), x=0, 53): seq(coeff(a, x, n), n=0..52); # Paolo P. Lava, Apr 02 2019
MATHEMATICA
nmax = 52; CoefficientList[Series[Sum[x^k^2/Product[(1 - x^j)^j, {j, 1, k}], {k, 0, nmax}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Sep 03 2018
STATUS
approved