A292952 E.g.f.: exp(-x * exp(x)).

1, -1, -1, 2, 9, 4, -95, -414, 49, 10088, 55521, 13870, -2024759, -15787188, -28612415, 616876274, 7476967905, 32522642896, -209513308607, -4924388011050, -38993940088199, -11731860520780, 3807154270837281, 52018152493218010, 278413297030360273

Offset

0,4

Links

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

Formula

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

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[-x Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 15 2023 *)

Prog

(PARI) x='x+O('x^66); Vec(serlaplace(exp(-x*exp(x))))

Crossrefs

Column k=1 of A293015.

Cf. this sequence (k=1), A292953 (k=2), A292954 (k=3), A292955 (k=4).

Cf. A003725.

Sequence in context: A127145 A210423 A003725 * A328619 A365108 A076930

Adjacent sequences: A292949 A292950 A292951 * A292953 A292954 A292955

Keyword

sign

Author

Seiichi Manyama, Sep 27 2017

Status

approved