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 A107952 #2 Mar 30 2012 17:31:15
%S A107952 1,4,6,23,25,36,84,499,857,1393,1741,1961,106527,130617,257090,
%T A107952 1912295,2647129
%N A107952 Increasing partial quotients in A107951.
%C A107952 Positions of the increasingly larger partial quotients are in A106643.
%t A107952 cf = ContinuedFraction[ Sum[i(i + 1)/2/Product[i!/j!, {j, 0, i - 1}], {i, 1500}]]; a = 0; Do[ If[ cf[[n]] > a, a = cf[[n]]; Print[a]], {n, 6462686}]
%Y A107952 Cf. A107951, A107950, A105658.
%K A107952 more,nonn
%O A107952 1,2
%A A107952 _Robert G. Wilson v_, May 28 2005