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 A102878 #5 Oct 22 2013 12:56:01
%S A102878 0,2,3,12,131,169,199,279,413,851,2771,18514,20740,20780,147756,
%T A102878 207783,312134,361393,6931243
%N A102878 Increasing partial quotients in the continued fraction expansion of the prime constant (A051006).
%C A102878 a(19) is a 3010301-digit number (1.71206300894551448591713167863057582188628436436...*10^3010300) with digit distribution 301276, 301983, 300946, 301660, 301631, 301181, 299864, 300633, 300456 & 300671.
%t A102878 cf = ContinuedFraction[ FromDigits[ {{Table[ If[ PrimeQ[n], 1, 0], {n, 10^7}]}, 0}, 2]]; a = 0; Do[ If[ cf[[n]] > a, a = cf[[n]]; Print[a]], {n, 5842783}]
%Y A102878 Cf. A051006, A051007, A103518.
%K A102878 nonn
%O A102878 0,2
%A A102878 _Robert G. Wilson v_, Jan 15 2005