A293016 E.g.f.: exp(-x^2 * exp(x)).

1, 0, -2, -6, 0, 100, 570, 798, -15176, -163368, -700650, 3112450, 84347868, 738909444, 1555721986, -54879912570, -955420939440, -7454556070352, 13202860260654, 1329363428217354, 20878556441998660, 145324350344133660, -1185240365741022822

Offset

0,3

Links

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

Maple

f := series(exp(-x^2 * exp(x)), x = 0, 101): 1, seq(factorial(n) * coeff(f, x^n), n = 1..100); # Muniru A Asiru, Oct 31 2017

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[-x^2Exp[x]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Apr 21 2019 *)

Prog

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

Crossrefs

Column k=2 of A293019.

Sequence in context: A106458 A354351 A213323 * A122685 A109581 A056876

Adjacent sequences: A293013 A293014 A293015 * A293017 A293018 A293019

Keyword

sign

Author

Seiichi Manyama, Sep 28 2017

Status

approved