OFFSET
0,4
MATHEMATICA
nmax = 40; CoefficientList[Series[Sum[k! x^(k (k + 1)/2)/Product[(1 - x^j)^j, {j, 1, k}], {k, 0, nmax}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Mar 04 2019
STATUS
approved