login
A066748
The continued fraction for the "binary" Copeland-Erdős constant.
2
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,3
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 (decimal expansion).
Sequence in context: A178074 A002249 A157127 * A106583 A081450 A248408
KEYWORD
base,cofr,nonn
AUTHOR
Robert G. Wilson v, Jan 16 2002
EXTENSIONS
Offset changed by Andrew Howroyd, Jul 04 2024
STATUS
approved