|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
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
|
|
|
|