%I A066717
%S A066717 0,1,6,3,1,6,5,3,3,1,6,4,1,3,298,1,6,1,1,3,285,7,2,4,1,2,1,2,1,1,
%T A066717 4534532,1,4,5,1,2,1,7,1,16,1,4,1,5,5,1,5,1,4,1,2,1,5,3,2,38,2,12,1,15,
%U A066717 2,6,3,30,4682854730443938,1,1,68,1,6,5,4,4,1,2,1,1,1,1,2,22,1,2,7,1,2
%N A066717 The continued fraction for the "binary" Champernowne constant.
%H A066717 Eric E. Weisstein, <a href="http://mathworld.wolfram.com/ChampernowneConstant.html">
               Champernowne Constant</a>
%t A066717 a = {}; Do[a = Append[a, IntegerDigits[n, 2]], {n, 1, 10^3} ]; ContinuedFraction[ 
               N[ FromDigits[ {Flatten[a], 0}, 2], 500]]
%Y A066717 Cf. A033307.
%Y A066717 Sequence in context: A019979 A085580 A092151 this_sequence A154969 A119743 
               A108451
%Y A066717 Adjacent sequences: A066714 A066715 A066716 this_sequence A066718 A066719 
               A066720
%K A066717 base,cofr,nonn
%O A066717 1,3
%A A066717 Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 14 2002