%I A066754
%S A066754 0,1,2,3,5,19,42,275,1424,2810,46114,79779,208340,226580
%N A066754 Incrementally largest terms in the continued fraction for the "binary" 
               Copeland-Erdos constant.
%t A066754 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
%Y A066754 Sequence in context: A079376 A072532 A038705 this_sequence A118625 A031133 
               A028490
%Y A066754 Adjacent sequences: A066751 A066752 A066753 this_sequence A066755 A066756 
               A066757
%K A066754 cofr,nonn
%O A066754 1,3
%A A066754 Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 16 2002