1,3

Eric E. Weisstein, Champernowne Constant

a = {}; Do[a = Append[a, IntegerDigits[n, 2]], {n, 1, 10^4} ]; b = ContinuedFraction[ N[ FromDigits[ {Flatten[a], 0}, 2], 7500]]; c = -1; d = {}; Do[If[b[[n]] > c, c = b[[n]]; d = Append[d, c]], {n, 1, 4400}]; d

Sequence in context: A128792 A027875 A042119 this_sequence A065947 A081321 A104003

Adjacent sequences: A066715 A066716 A066717 this_sequence A066719 A066720 A066721

base,cofr,nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 14 2002