OFFSET
0,5
MATHEMATICA
With[{nmax = 30}, CoefficientList[Series[Exp[-x - x^2/2 - x^3/6], {x, 0, nmax}], x] * Range[0, nmax]!] (* Vaclav Kotesovec, Feb 09 2020 *)
CROSSREFS
KEYWORD
sign
AUTHOR
STATUS
approved