OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..728
FORMULA
E.g.f.: exp(8*x - x^2). - G. C. Greubel, Jul 12 2018
MATHEMATICA
lst={}; Do[AppendTo[lst, HermiteH[n, 4]], {n, 0, 7^2}]; lst
Table[HermiteH[n, 4], {n, 0, 50}] (* G. C. Greubel, Jul 12 2018 *)
PROG
(Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Exp(8*x - x^2))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Jul 12 2018
(PARI) x='x+O('x^30); Vec(serlaplace(exp(8*x - x^2))) \\ G. C. Greubel, Jul 12 2018
(PARI) a(n) = polhermite(n, 4); \\ Michel Marcus, Jul 13 2018
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 11 2008
EXTENSIONS
Offset corrected by Alois P. Heinz, Oct 23 2015
STATUS
approved