|
%I #3 Mar 30 2012 17:30:31
%S 7,1,6,7,3,4,8,7,8,6,8,9,6,9,2,2,6,7,4,1,2,3,1,4,4,5,9,5,4,9,1,4,1,1,
%T 3,1,5,4,7,8,7,6,9,2,4,0,8,6,5,2,0,5,0,4,3,9,0,6,9,6,7,5,5,2,3,9,7,1,
%U 0,7,9,2,5,3,3,2,9,6,4,4,8,7,9,9,2,7,1,6,5,6,7,5,3,2,8,1,7,3,3,8
%N Decimal representation if A023532 is binary.
%e 0.1011011101111.. in binary is equal to 0.71673 48786 89692 26741 23144... in decimal.
%t a = {}; Do[a = Append[a, Join[ {0}, Table[1, {n} ] ]], {n, 1, 100} ]; a = Flatten[a]; l = Length[a]; c = 0; Do[c = c + a[[n]]*2^(-n + 1), {n, 1, l} ]; RealDigits[ N[ c, 100]] [[1]]
%K base,nonn
%O 0,1
%A _Robert G. Wilson v_, Apr 13 2001
|
