|
%I #26 May 03 2017 23:55:14
%S 1,5,3,1,0,2,6,2,4,5,8,9,0,0,2,1,1,9,2,1,6,2,2,3,1,6,7,1,5,9,5,3,0,5,
%T 3,2,1,0,8,6,5,8,0,4,5,5,6,8,1,5,1,0,2,3,1,2,3,9,1,2,0,6,0,8,4,6,0,2,
%U 7,0,4,5,1,4,9,6,8,1,3,8,8,7,6,3,9,4,8,6,5,8,2,9,6,3,2,5,1,2,3,4,9,9,3,9,3
%N Decimal expansion of Sum_{n>=1} A285388(n-1)/A285388(n).
%e 0.01531026245890021192162231671595305321086580455681510231239120608460270451...
%t a388[i_] = Numerator[2^(1 - 2 i^2) i Binomial[2 i^2, i^2]];
%t RealDigits[N[Sum[a388[i-1]/a388[i], {i, 1, 50}]],10]
%Y Cf. A285388.
%K nonn,cons
%O -1,2
%A _Ralf Steiner_, May 03 2017
%E More terms from _Robert G. Wilson v_, May 03 2017
|
