OFFSET
0,4
FORMULA
E.g.f.: Product_{k>0} exp(x^(4*k-1)) / exp(x^(4*k)).
MATHEMATICA
CoefficientList[Series[E^(x^3/(1 + x + x^2 + x^3)), {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Oct 13 2017 *)
PROG
(PARI) N=66; x='x+O('x^N); Vec(serlaplace(exp(x^3/(1+x+x^2+x^3))))
(PARI) N=66; x='x+O('x^N); Vec(serlaplace(prod(k=1, N, exp(x^(4*k-1)-x^(4*k)))))
CROSSREFS
KEYWORD
sign
AUTHOR
Seiichi Manyama, Oct 12 2017
STATUS
approved