|
%I
%S 1,5,9,0,6,3,6,8,5,4,6,3,7,3,2,9,0,6,3,3,8,2,2,5,4,4,2,4,9,9,9,6,6,6,
%T 2,4,7,9,5,4,4,7,8,1,5,9,4,9,5,5,3,6,6,4,7,1,3,2,2,8,7,9,8,4,6,0,8,5,
%U 4,5,0,3,7,5,3,5,3,6,1,1,8,5,1,1,6,1,2,2,1,4,7,5,9,4,2,2,8,9,2,5,2,3,7,7,5
%N Decimal expansion of BesselI(1,2).
%F BesselI(1, 2) = sum_{k=0..inf} k/k!^2 = 1.59063685463732906338225...
%p A096789:=proc(q)
%p local k;
%p print(evalf((add(1/(k!*(k+1)!),k=0..q)),100)); end:
%p A096789(1000); # _Paolo P. Lava_, Jan 15 2013.
%t RealDigits[BesselI[1, 2], 10, 110][[1]]
%t (* Or *) RealDigits[ Sum[ n/(n!n!), {n, 0, Infinity}], 10, 110][[1]]
%Y Cf. A070910.
%K cons,easy,nonn
%O 1,2
%A _Robert G. Wilson v_, Jul 09 2004
|
