|
Search: id:A066754
|
|
|
| A066754 |
|
Incrementally largest terms in the continued fraction for the "binary" Copeland-Erdos constant. |
|
+0
1
|
|
| 0, 1, 2, 3, 5, 19, 42, 275, 1424, 2810, 46114, 79779, 208340, 226580
(list; graph; listen)
|
|
|
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
|
Sequence in context: A079376 A072532 A038705 this_sequence A118625 A031133 A028490
Adjacent sequences: A066751 A066752 A066753 this_sequence A066755 A066756 A066757
|
|
KEYWORD
|
cofr,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 16 2002
|
|
|
Search completed in 0.005 seconds
|
