A293121 Expansion of e.g.f. exp(x^3/(1+x)).

1, 0, 0, 6, -24, 120, -360, 0, 20160, -302400, 3628800, -39916800, 419126400, -4151347200, 36324288000, -207048441600, -1743565824000, 103742166528000, -2925529096089600, 69945932735078400, -1571249213614080000, 34354603773794304000, -741528257908838400000

Offset

0,4

Links

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

Formula

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

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

Mathematica

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

Prog

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

Crossrefs

Column k=2 of A293133.

Cf. A111884, A293120.

Cf. A293118.

Sequence in context: A100934 A127917 A293118 * A026982 A051197 A334328

Adjacent sequences: A293118 A293119 A293120 * A293122 A293123 A293124

Keyword

sign

Author

Seiichi Manyama, Sep 30 2017

Status

approved