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 A103518 #4 Mar 31 2012 12:39:08
%S A103518 0,1,4,5,6,20,31,54,306,356,762,3174,20240,22693,35793,58491,81251,
%T A103518 206410,228533,2921406
%N A103518 Indices of increasing partial quotients PQ_i of the continued fraction for the prime constant (A051006).
%t A103518 cf = ContinuedFraction[ FromDigits[ {{Table[ If[ PrimeQ[n], 1, 0], {n, 10^7}]}, 0}, 2]]; a = -1; Do[ If[ cf[[n]] > a, a = cf[[n]]; Print[n-1]], {n, 5842783}]
%Y A103518 Cf. A051006, A051007. A102878.
%K A103518 nonn
%O A103518 0,3
%A A103518 _Robert G. Wilson v_ and _Eric W. Weisstein_, Feb 07 2005