A014775 Expansion of exp ( - x - (1/2)*x^2 - (1/6)*x^3).

1, -1, 0, 1, 2, -6, -14, 20, 204, 28, -2584, -6876, 33760, 219296, -121848, -6020456, -15177904, 126126960, 950679424, -898745392, -38731873824, -123922308896, 1126028191520, 10547325457536, -5093629711808

Offset: 0

Author

N. J. A. Sloane

Keywords

• sign

Crossrefs

Cf. A001464, A001680.

Programs

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 *)