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 A031402 #5 Mar 30 2012 18:35:29
%S A031402 2,3,5,6,7,11,13,18,19,22,31,43,46,61,67,94,109,127,139,151,166,199,
%T A031402 211,214,271,301,331,379,454,526,571,631,694,739,751,859,886,919,991,
%U A031402 1279,1291,1366,1549,1579,1621,1726,1831,1894,1999,2011,2206
%N A031402 Sum of terms in period of continued fraction for sqrt(a(n)) increases.
%C A031402 Least k such that the sum of terms in period of continued fraction for sqrt(k) exceeds that for all j's < k.
%t A031402 f[n_] := If[IntegerQ[Sqrt[n]], 0, Apply[ Plus, Last[ ContinuedFraction[ Sqrt[n]]]]]; a = 0; Do[ b = f[n]; If[b > a, a = b; Print[n]], {n, 1, 1000} ]
%Y A031402 Cf. A031403, A010340.
%K A031402 nonn
%O A031402 1,1
%A A031402 _David W. Wilson_