|
%I #12 Sep 08 2022 08:45:43
%S 1,20,398,7880,155212,3041200,59271880,1148943200,22149057680,
%T 424598062400,8093278209760,153373602947200,2889419938329280,
%U 54107432295852800,1007023727520494720,18625466446126016000,342298617096905478400,6249957415662077056000
%N a(n) = Hermite(n,10).
%C The first negative term is a(59). - _Georg Fischer_, Feb 19 2019
%H G. C. Greubel, <a href="/A158534/b158534.txt">Table of n, a(n) for n = 0..715</a>
%F E.g.f.: exp(20*x - x^2). - _G. C. Greubel_, Jul 13 2018
%t Table[HermiteH[n,10], {n,0,30}] (* _G. C. Greubel_, Jul 13 2018 *)
%o (Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Exp(20*x - x^2))); [Factorial(n-1)*b[n]: n in [1..m]]; // _G. C. Greubel_, Jul 13 2018
%o (PARI) x='x+O('x^30); Vec(serlaplace(exp(20*x - x^2))) \\ _G. C. Greubel_, Jul 13 2018
%o (PARI) for(n=0,30, print1(polhermite(n, 10), ", ")) \\ _G. C. Greubel_, Jul 13 2018
%K sign
%O 0,2
%A _N. J. A. Sloane_, Nov 11 2009
|
