A066748 The continued fraction for the "binary" Copeland-Erdős 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: 0

Author

Robert G. Wilson v, Jan 16 2002

Keywords

• base
• cofr
• nonn

Crossrefs

Cf. A066747 (decimal expansion).

Programs

Mathematica

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

Extensions

Offset changed by Andrew Howroyd, Jul 04 2024