login
A014775
Expansion of exp ( - x - (1/2)*x^2 - (1/6)*x^3).
1
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,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
Sequence in context: A009779 A086666 A032383 * A009218 A071122 A173724
KEYWORD
sign
AUTHOR
STATUS
approved