A060625 Decimal representation if A023532 is binary.
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, 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, 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
Offset: 0
Examples
0.1011011101111.. in binary is equal to 0.71673 48786 89692 26741 23144... in decimal.
Programs
-
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]]