OFFSET
0,2
FORMULA
E.g.f.: 2 * EllipticK( 16*sqrt(x) / (1 + 8*sqrt(x)) ) / (Pi * sqrt(1 + 8*sqrt(x))).
a(n) is the coefficient of x^n in expansion of d^n/dx^n g(x), where g(x) is the g.f. of central binomial coefficients (A000984).
a(n) ~ 64^n * n^(n-1/2) / (sqrt(Pi) * exp(n)).
D-finite with recurrence n*a(n) -4*(4*n-1)*(4*n-3)*a(n-1)=0. - R. J. Mathar, Mar 06 2022
MATHEMATICA
Table[(4 n)!/(n! (2 n)!), {n, 0, 14}]
nmax = 14; CoefficientList[Series[2 EllipticK[16 Sqrt[x]/(1 + 8 Sqrt[x])]/(Pi Sqrt[1 + 8 Sqrt[x]]), {x, 0, nmax}], x] Range[0, nmax]!
Table[SeriesCoefficient[D[1/Sqrt[1 - 4 x], {x, n}], {x, 0, n}], {n, 0, 14}]
PROG
(PARI) a(n) = (4*n)! / (n! * (2*n)!) \\ Andrew Howroyd, Nov 20 2021
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ilya Gutkovskiy, Nov 18 2021
STATUS
approved