|
|
A073767
|
|
Bateman polynomial values n!*Z_n(-1).
|
|
2
|
|
|
1, 3, 20, 188, 2214, 30922, 495816, 8931960, 177999366, 3878476418, 91558971096, 2324529942088, 63084714688540, 1820757355281828, 55645592361311504, 1794034726184859120, 60817844748284215110, 2161623389394872099250, 80346564637248427227960
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = n!(Sum k=0..n (n+k)!/(k!^3(n-k)!)) = n!*F(-n, n+1;1, 1;-1).
n(2n-3)a(n) = (2n-1)(3n^2-2n-4)a(n-1)-(2n-3)(3n^2-10n+4)(n-1)a(n-2)+(n-1)(2n-1)(n-2)^3a(n-3).
E.g.f.: exp(2*x/(x-1)^2)*BesselI(0,2*x/(x-1)^2)/(1-x). - Mark van Hoeij, Oct 24 2011
a(n) ~ n^(n-1/6) * exp(3*n^(2/3)-n-1/3) / sqrt(6*Pi) * (1 + 1/n^(1/3) + 61/(90*n^(2/3))). - Vaclav Kotesovec, Feb 25 2014
|
|
MATHEMATICA
|
Table[n!*Sum[(n+k)!/(n-k)!/k!^3, {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Feb 25 2014 *)
|
|
PROG
|
(PARI) a(n)=if(n<0, 0, n!*sum(k=0, n, (n+k)!/(n-k)!/k!^3))
(Sage)
A073767 = lambda n: factorial(n)*hypergeometric([-n, n+1], [1, 1], -1)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|