A066718 - OEIS

A066718

Incrementally largest terms in the continued fraction for the "binary" Champernowne constant.

0, 1, 6, 298, 4534532, 4682854730443938, 21178658483534445867705807931242133, 1784182521628823878390282782427911592097785568614928986384139293902055110

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

Table of n, a(n) for n=1..8.

Eric E. Weisstein, Champernowne Constant

MATHEMATICA

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

CROSSREFS

Cf. A066717.

Sequence in context: A196980 A197165 A264706 * A065947 A277168 A081321

Adjacent sequences: A066715 A066716 A066717 * A066719 A066720 A066721

KEYWORD

base,nonn

AUTHOR

Robert G. Wilson v, Jan 14 2002

STATUS

approved