OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..500
FORMULA
E.g.f.: exp(-(exp(x)-1)^2).
MATHEMATICA
Table[Sum[StirlingS2[n, k]HermiteH[k, 0], {k, 0, n}], {n, 0, 20}] (* Harvey P. Dale, Mar 24 2013 *)
With[{nmax = 50}, CoefficientList[Series[Exp[-(Exp[x] - 1)^2], {x, 0, nmax}], x]*Range[0, nmax]!] (* G. C. Greubel, Jul 12 2018 *)
PROG
(PARI) x='x+O('x^50); Vec(serlaplace(exp(-(exp(x)-1)^2))) \\ G. C. Greubel, Jul 12 2018
(Magma) m:=50; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Exp(-(Exp(x)-1)^2))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Jul 12 2018
CROSSREFS
KEYWORD
sign
AUTHOR
Vladeta Jovovic, Sep 12 2003
STATUS
approved