|
|
A144143
|
|
a(n) = Hermite(n,4).
|
|
1
|
|
|
1, 8, 62, 464, 3340, 23008, 150664, 929216, 5324432, 27728000, 125984224, 453313792, 854857408, -4040671744, -54551666560, -323274523648, -949646192384, 2747615217664, 54268892282368, 335236990423040, 619678016654336, -8452055483686912, -93642920568977408
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|