OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..729
FORMULA
From G. C. Greubel, Jul 10 2018: (Start)
E.g.f.: exp(4*x - x^2).
a(n) = Sum_{k=0..floor(n/2)} (-1)^k*n!*4^(n-2*k)/(k!*(n-2*k)!). (End)
MATHEMATICA
lst={}; Do[AppendTo[lst, HermiteH[n, 2]], {n, 0, 7^2}]; lst
HermiteH[Range[0, 30], 2] (* Harvey P. Dale, May 20 2012 *)
PROG
(PARI) for(n=0, 50, print1(polhermite(n, 2), ", " )) \\ G. C. Greubel, Jul 10 2018
(Magma) [(&+[(-1)^k*Factorial(n)*(4)^(n-2*k)/( Factorial(k) *Factorial(n-2*k)): k in [0..Floor(n/2)]]): n in [0..30]]; // G. C. Greubel, Jul 10 2018
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 11 2008
STATUS
approved