OFFSET
0,4
FORMULA
Numerators of coefficients in expansion of BesselJ(0,2*sqrt(x)) / (1 - x).
EXAMPLE
1, 0, 1/4, 2/9, 43/192, 403/1800, 23213/103680, 118483/529200, 51997111/232243200, 1842647621/8230118400, ...
MATHEMATICA
Table[Sum[(-1)^k/(k!)^2, {k, 0, n}], {n, 0, 18}] // Numerator
nmax = 18; CoefficientList[Series[BesselJ[0, 2 Sqrt[x]]/(1 - x), {x, 0, nmax}], x] // Numerator
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Ilya Gutkovskiy, May 23 2022
STATUS
approved