The OEIS is supported by the many generous donors to the OEIS Foundation.

 Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 60, we have over 367,000 sequences, and we’ve crossed 11,000 citations (which often say “discovered thanks to the OEIS”). Other ways to Give
 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A158811 Numerator of Hermite(n, 1/3). 6
 1, 2, -14, -100, 556, 8312, -33416, -964528, 2281360, 143454752, -82670816, -25987196992, -35605572416, 5542023405440, 19415750756224, -1357758396658432, -7957769497497344, 375118879242633728, 3185315224719454720, -115167886425174418432, -1319713579704402351104 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS Vincenzo Librandi, Table of n, a(n) for n = 0..200 DLMF Digital library of mathematical functions, Table 18.9.1 for H_n(x) FORMULA D-finite with recurrence a(n) -2*a(n-1) +18*(n-1)*a(n-2)=0. [DLMF] - R. J. Mathar, Feb 16 2014 From G. C. Greubel, Jun 09 2018: (Start) a(n) = 3^n * Hermite(n,1/3). E.g.f.: exp(2*x-9*x^2). a(n) = numerator(Sum_{k=0..floor(n/2)} (-1)^k*n!*(2/3)^(n-2*k)/(k!*(n-2*k)!)). (End) EXAMPLE Numerator of 1, 2/3, -14/9, -100/27, 556/81, 8312/243, -33416/729, -964528/2187, 2281360/6561, 143454752/19683, -82670816/59049,... MAPLE A158811 := proc(n) orthopoly[H](n, 1/3) ; numer(%) ; end proc: # R. J. Mathar, Feb 16 2014 MATHEMATICA Numerator[Table[HermiteH[n, 1/3], {n, 0, 50}]] (* Vladimir Joseph Stephan Orlovsky, Mar 23 2011 *) PROG (PARI) a(n)=numerator(polhermite(n, 1/3)) \\ Charles R Greathouse IV, Jan 29 2016 (Magma) [Numerator((&+[(-1)^k*Factorial(n)*(2/3)^(n-2*k)/( Factorial(k) *Factorial(n-2*k)): k in [0..Floor(n/2)]])): n in [0..30]]; // G. C. Greubel, Jun 09 2018 CROSSREFS Cf. A000244 (denominators). Sequence in context: A247481 A037516 A037719 * A198280 A360319 A074620 Adjacent sequences: A158808 A158809 A158810 * A158812 A158813 A158814 KEYWORD sign,frac AUTHOR N. J. A. Sloane, Nov 12 2009 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 1 23:26 EST 2023. Contains 367503 sequences. (Running on oeis4.)