A298241 - OEIS

%I #12 Jul 03 2018 02:50:18

%S 3,1,6,0,8,9,2,4,1,2,6,8,2,2,1,1,8,4,0,9,5,6,0,1,6,9,1,7,1,0,5,1,8,1,

%T 1,4,7,6,6,8,6,2,9,2,7,0,0,7,0,4,1,8,2,0,7,3,9,5,4,0,0,7,3,4,7,3,2,4,

%U 1,1,6,1,8,0,4,2,7,3,5,5,9,1,8,9,8,6,6,0,7,2,1,6,4,3,9,0,0,6,6,3,3,8,1,2,7,3,8,2,3,6

%N Decimal expansion of BesselI(1,2/3)/BesselI(0,2/3).

%H G. C. Greubel, <a href="/A298241/b298241.txt">Table of n, a(n) for n = 0..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ContinuedFractionConstants.html">Continued Fraction Constants</a>

%H <a href="/index/Be#Bessel">Index entries for sequences related to Bessel functions or polynomials</a>

%F Equals 1/(3 + 1/(6 + 1/(9 + 1/(12 + 1/(15 + 1/(18 + ...)))))).

%e 0.3160892412682211840956016917105181147668629270070418207...

%t RealDigits[BesselI[1, 2/3]/BesselI[0, 2/3], 10, 110] [[1]]

%t RealDigits[Hypergeometric0F1[2, (2/3)^2/4] /(3 Gamma[2] Hypergeometric0F1[1, (2/3)^2/4]), 10, 110][[1]]

%o (PARI) besseli(1,2/3)/besseli(0,2/3) \\ _Michel Marcus_, Jul 03 2018

%Y Cf. A008585, A052119, A073744, A073747, A073821, A296168, A298242, A298243.

%K nonn,cons

%O 0,1

%A _Ilya Gutkovskiy_, Jan 15 2018