login
A062995
Doubly exponentiate the Bessel function I(0,2*sqrt(z)).
0
1, 1, 5, 49, 789, 18741, 612383, 26218956, 1419303189, 94531262917, 7582017897795, 719690829785016, 79691175192777855, 10170046938232956048, 1480481369981439216732, 243659154929530351237884, 44987315567879408248084629, 9254611189980167520327621253
OFFSET
0,3
FORMULA
Hypergeometric generating function for a(n), in Maple notation: exp(exp(BesselI(0, 2*sqrt(z))-1)-1)=sum(a(n)*z^n/((n!)^2), n=0..infinity)
MATHEMATICA
nmax = 20; CoefficientList[Series[E^(-1 + E^(-1 + BesselI[0, 2*Sqrt[x]])), {x, 0, nmax}], x] * Range[0, nmax]!^2 (* Vaclav Kotesovec, Jun 09 2019 *)
CROSSREFS
Cf. A023998.
Sequence in context: A192557 A357335 A290755 * A293847 A104600 A221972
KEYWORD
easy,nonn
AUTHOR
Karol A. Penson, Jun 28 2001
EXTENSIONS
More terms from Vaclav Kotesovec, Jun 09 2019
STATUS
approved