|
|
A098659
|
|
Expansion of 1/sqrt((1-7*x)^2-24*x^2).
|
|
3
|
|
|
1, 7, 61, 595, 6145, 65527, 712909, 7863667, 87615745, 983726695, 11112210781, 126142119187, 1437751935361, 16443380994775, 188609259215725, 2168833084841395, 24994269200292865, 288596644195946695, 3337978523215692925, 38666734085509918675
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
G.f.: 1/sqrt(1-14*x+25*x^2).
E.g.f.: exp(7*x)*BesselI(0, 2*sqrt(6)*x).
a(n) = Sum_{k=0..n} C(n, k)^2*6^k.
a(n) = [x^n] (1+7*x+6*x^2)^n.
General recurrence for Sum_{k=0..n} C(n,k)^2*x^k (this is case x=6): (n+2)*a(n+2)-(x+1)*(2*n+3)*a(n+1)+(x-1)^2*(n+1)*a(n)=0.
Asymptotic (Rob Noble, 2010): a(n) ~ (1+sqrt(x))^(2*n+1)/(2*x^(1/4)*sqrt(Pi*n)), this is case x=6.
(End)
D-finite with recurrence: n*a(n) +7*(-2*n+1)*a(n-1) +25*(n-1)*a(n-2)=0. - R. J. Mathar, Jan 20 2020
|
|
MATHEMATICA
|
Table[Sum[Binomial[n, k]^2*6^k, {k, 0, n}], {n, 0, 25}] (* Vaclav Kotesovec, Sep 15 2012 *)
CoefficientList[Series[1/Sqrt[(1-7*x)^2-24*x^2], {x, 0, 25}], x] (* Stefano Spezia, Dec 04 2018 *)
|
|
PROG
|
(PARI) x='x+O('x^66); Vec(1/sqrt(1-14*x+25*x^2)) \\ Joerg Arndt, May 12 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|