cp's OEIS Frontend

A113737 Decimal expansion of the constant given by Sum_{n>=0} A083952(n)/2^(n+1).

%I A113737 #7 Apr 19 2013 22:24:19
%S A113737 1,3,6,6,5,7,7,1,4,0,3,9,7,5,6,6,2,7,3,7,3,4,8,0,7,0,7,4,1,0,2,8,0,3,
%T A113737 8,8,1,0,2,6,3,9,9,2,3,9,1,9,5,5,5,9,6,1,7,4,1,4,7,8,3,0,1,7,7,7,2,7,
%U A113737 4,2,8,7,4,7,0,4,0,5,5,2,5,1,4,4,8,7,4,4,3,4,0,5,7,4,3,3,8,6,3,5,1,2,5,3,1,3
%N A113737 Decimal expansion of the constant given by Sum_{n>=0} A083952(n)/2^(n+1).
%e A113737 1.3665771403975662737348070741028038810263992391955596174147830177...
%t A113737 a[0] = 1; a[l_] := a[l] = Block[{k = 1, s = Sum[ a[i]*x^i, {i, 0, l - 1}]}, While[ IntegerQ[ Last[ CoefficientList[ Series[(s + k*x^l)^(1/2), {x, 0, l}], x]]] != True, k++ ]; k]; t = Table[a[n], {n, 0, 370}]; RealDigits[ FromDigits[{t - 1, 0}, 2], 10, 111][[1]]
%Y A113737 Cf. A083952.
%K A113737 cons,nonn
%O A113737 1,2
%A A113737 _Robert G. Wilson v_, Nov 08 2005
%E A113737 Name changed and comments removed by _Paul D. Hanna_, Apr 19 2013