A062995 - OEIS

A062995

Doubly exponentiate the Bessel function I(0,2*sqrt(z)).

1, 1, 5, 49, 789, 18741, 612383, 26218956, 1419303189, 94531262917, 7582017897795, 719690829785016, 79691175192777855, 10170046938232956048, 1480481369981439216732, 243659154929530351237884, 44987315567879408248084629, 9254611189980167520327621253

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

Table of n, a(n) for n=0..17.

Index entries for sequences related to Bessel functions or polynomials

FORMULA

Hypergeometric generating function for a(n): exp(exp(BesselI(0, 2*sqrt(z))-1)-1) = Sum_{n>=0} a(n)*z^n/(n!)^2.

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: A390302 A357335 A290755 * A293847 A104600 A221972

Adjacent sequences: A062992 A062993 A062994 * A062996 A062997 A062998

KEYWORD

easy,nonn

AUTHOR

Karol A. Penson, Jun 28 2001

EXTENSIONS

More terms from Vaclav Kotesovec, Jun 09 2019

STATUS

approved