A293123 E.g.f.: exp(-x^3/(1+x)).

1, 0, 0, -6, 24, -120, 1080, -10080, 100800, -1149120, 14515200, -199584000, 2973801600, -47740492800, 820928908800, -15049152518400, 292919058432000, -6031865968128000, 130990787582054400, -2991455760887193600, 71659101232502784000, -1796424431562528768000

Offset: 0

Author

Seiichi Manyama, Sep 30 2017

Keywords

• sign

Links

• Seiichi Manyama, Table of n, a(n) for n = 0..444

Crossrefs

Column k=2 of A293134.

Cf. A293049.

Programs

Mathematica

CoefficientList[Series[E^(-x^3/(1+x)), {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Sep 30 2017 *)

PARI

x='x+O('x^66); Vec(serlaplace(exp(-x^3/(1+x))))

Formula

a(n) = (-1)^n * A293049(n).

a(n) ~ (-1)^n * n^(n-1/4) * exp(-5/2 + 2*sqrt(n) - n) / sqrt(2). - Vaclav Kotesovec, Sep 30 2017