|
%I
%S 2,3,5,6,7,11,13,18,19,22,31,43,46,61,67,94,109,127,139,151,166,199,
%T 211,214,271,301,331,379,454,526,571,631,694,739,751,859,886,919,991,
%U 1279,1291,1366,1549,1579,1621,1726,1831,1894,1999,2011,2206
%N Sum of terms in period of continued fraction for sqrt(a(n)) increases.
%C Least k such that the sum of terms in period of continued fraction for sqrt(k) exceeds that for all j's < k.
%t 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 Cf. A031403, A010340.
%K nonn
%O 1,1
%A _David W. Wilson_
|
