login
A066754
Incrementally largest terms in the continued fraction for the "binary" Copeland-Erdos constant.
0
0, 1, 2, 3, 5, 19, 42, 275, 1424, 2810, 46114, 79779, 208340, 226580
OFFSET
1,3
MATHEMATICA
a = {}; Do[ a = Append[a, IntegerDigits[ Prime[n], 2]], {n, 1, 50000} ]; ContinuedFraction[ N[ FromDigits[ {Flatten[a], 0}, 2], 194230]]; c = -1; d = {}; Do[ If[ b[[n]] > c, c = b[[n]]; d = Append[d, c]], {n, 1, 194230} ]; d
CROSSREFS
Cf. A066748.
Sequence in context: A215373 A359939 A038705 * A140560 A118625 A031133
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 16 2002
STATUS
approved