|
|
A160305
|
|
Numerator of Hermite(n, 7/31).
|
|
1
|
|
|
1, 14, -1726, -77980, 8860396, 723555784, -75018624584, -9394306045264, 877780290519440, 156735773819251424, -12989542631935753184, -3194315169653112913856, 229904497949242113022144, 76892348044168785827484800, -4667900913141400434386502784
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 31^n * Hermite(n, 7/31).
E.g.f.: exp(14*x - 961*x^2).
a(n) = numerator(Sum_{k=0..floor(n/2)} (-1)^k*n!*(14/31)^(n-2*k)/(k!*(n-2*k)!)). (End)
|
|
EXAMPLE
|
Numerators of 1, 14/31, -1726/961, -77980/29791, 8860396/923521, ...
|
|
MATHEMATICA
|
Numerator[HermiteH[Range[0, 20], 7/31]] (* Harvey P. Dale, Apr 23 2016 *)
Table[31^n*HermiteH[n, 7/31], {n, 0, 30}] (* G. C. Greubel, Oct 04 2018 *)
|
|
PROG
|
(PARI) x='x+O('x^30); Vec(serlaplace(exp(14*x - 961*x^2))) \\ G. C. Greubel, Oct 04 2018
(Maxima) makelist(num(hermite(n, 7/31)), n, 0, 20); /* Bruno Berselli, Mar 28 2018 */
(Magma) [Numerator((&+[(-1)^k*Factorial(n)*(14/31)^(n-2*k)/( Factorial(k) *Factorial(n-2*k)): k in [0..Floor(n/2)]])): n in [0..30]]; // G. C. Greubel, Oct 04 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|