A294454 a(n) = n! * [x^n] exp(2*n*x)*BesselI(0,2*x)^n.
1, 2, 20, 324, 7336, 213500, 7593744, 319195800, 15481238224, 850968357228, 52279073479120, 3549850939488392, 263999303861731200, 21340730504572110008, 1863120652816098506432, 174706136370865217610000, 17512175948995988236164000, 1868638289932305589084614220, 211478046685658614366937497296
Offset: 0
Keywords
Links
- N. J. A. Sloane, Transforms
Programs
-
Mathematica
Table[n! SeriesCoefficient[Exp[2 n x] BesselI[0, 2 x]^n, {x, 0, n}], {n, 0, 18}]
Formula
a(n) ~ c * d^n * n! / sqrt(n), where d = 6.46710510392662827829435747085578126903789467159876086... and c = 0.36028050364743885143298970162021762094091934461095... - Vaclav Kotesovec, May 04 2024
Comments