|
%I #5 Oct 27 2018 22:02:31
%S 6,6,1,7,1,0,4,1,5,4,2,5,2,7,8,7,2,9,7,7,4,4,5,8,3,3,1,5,0,5,3,7,0,0,
%T 7,9,0,7,9,8,9,4,4,2,8,1,7,2,4,7,0,6,7,9,9,3,2,5,3,4,0,6,3,4,5,2,6,7,
%U 9,5,9,4,0,2,8,0,8,8,1,7,0,4,3,1,5,0,9,4,6,5,5,6,5,2,2,2,8,2,3,6,2,3,9,4,8
%N Consider A100060 as a binary fraction: this is its decimal fractional equivalent.
%e 0.6617104154252787297744583315053700790798944281724706799325...
%t zz = { (* the list of values in the link *) }; yy = Drop[zz, 1] - Drop[zz, -1]; xx = Drop[yy, 1] - Drop[yy, -1]; RealDigits[ FromDigits[ {Join[{1}, Table[If[xx[[n]] > 0, 1, 0], {n, 370}]], 0}, 2], 10, 111][[1]]
%Y Cf. A100060.
%K cons,nonn
%O 0,1
%A _Gary W. Adamson_ and _Robert G. Wilson v_, Jan 13 2005
|
