%I #13 Sep 08 2022 08:45:38
%S 1,6,34,180,876,3816,14136,39024,36240,-406944,-3093984,-10425024,
%T 5517504,283305600,1556378496,1405714176,-38257069824,-274525272576,
%U -346411261440,7804442244096,59990281399296,47763998631936,-2233007826978816,-15499662901678080
%N a(n) = Hermite(n,3).
%H G. C. Greubel, <a href="/A144142/b144142.txt">Table of n, a(n) for n = 0..729</a>
%F E.g.f.: exp(6*x - x^2). - _G. C. Greubel_, Jul 12 2018
%t lst={};Do[AppendTo[lst,HermiteH[n,3]],{n,0,7^2}];lst
%t HermiteH[Range[0,30],3] (* _Harvey P. Dale_, Dec 11 2015 *)
%o (PARI) for(n=0,30, print1(polhermite(n, 3), ", ")) \\ _G. C. Greubel_, Jul 12 2018
%o (Magma) [(&+[(-1)^k*Factorial(n)*(6)^(n-2*k)/( Factorial(k) *Factorial(n-2*k)): k in [0..Floor(n/2)]]): n in [0..30]]; // _G. C. Greubel_, Jul 12 2018
%K sign
%O 0,2
%A _Vladimir Joseph Stephan Orlovsky_, Sep 11 2008
%E Offset corrected by _Alois P. Heinz_, Oct 23 2015
|