OFFSET
0,4
EXAMPLE
G.f. A(x) = 1 + x + 2*x^3 + 12*x^6 + 18*x^9 + 144*x^10 + 432*x^13 + 576*x^14 + 2880*x^15 + ...
MATHEMATICA
nmax = 38; CoefficientList[Series[1 + x Fold[((#2 + 1) x^(#2 + 1) #1 + 1)^#2 &, 0, Reverse[Range[nmax]]], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Apr 12 2018
STATUS
approved