The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #5 Jul 11 2024 10:46:44
%S 0,1,6,298,4534532,4682854730443938,
%T 21178658483534445867705807931242133,
%U 1784182521628823878390282782427911592097785568614928986384139293902055110
%N Incrementally largest terms in the continued fraction for the "binary" Champernowne constant.
%H Eric E. Weisstein, <a href="http://mathworld.wolfram.com/ChampernowneConstant.html">Champernowne Constant</a>
%t 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
%Y Cf. A066717.
%K base,nonn
%O 1,3
%A _Robert G. Wilson v_, Jan 14 2002