A066748 The continued fraction for the "binary" Copeland-Erdos constant.

0, 1, 2, 1, 3, 5, 2, 1, 2, 5, 5, 2, 19, 1, 2, 1, 2, 42, 2, 2, 2, 1, 2, 3, 1, 1, 26, 20, 8, 5, 1, 1, 1, 21, 9, 1, 1, 1, 6, 1, 5, 18, 3, 5, 3, 10, 1, 1, 8, 5, 2, 1, 2, 1, 3, 2, 1, 5, 2, 1, 1, 15, 3, 1, 4, 3, 2, 2, 2, 1, 3, 1, 275, 1, 2, 20, 120, 1, 12, 1, 9, 1424, 1, 2, 36, 1, 2, 2, 4, 1, 4, 1, 9, 1, 1, 2

Offset

1,3

Links

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

Mathematica

a = {}; Do[ a = Append[a, IntegerDigits[ Prime[n], 2]], {n, 1, 10^3} ]; ContinuedFraction[ N[ FromDigits[ {Flatten[a], 0}, 2], 500]]

Crossrefs

Cf. A066747.

Sequence in context: A178074 A002249 A157127 * A106583 A081450 A248408

Adjacent sequences: A066745 A066746 A066747 * A066749 A066750 A066751

Keyword

base,cofr,nonn

Author

Robert G. Wilson v, Jan 16 2002

Status

approved