OFFSET
0,1
EXAMPLE
0.1011011101111.. in binary is equal to 0.71673 48786 89692 26741 23144... in decimal.
MATHEMATICA
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]]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Apr 13 2001
STATUS
approved