This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A066754 #5 Jul 11 2024 10:46:41
%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 Cf. A066748.
%K A066754 nonn
%O A066754 1,3
%A A066754 _Robert G. Wilson v_, Jan 16 2002