OFFSET
1,1
COMMENTS
Least k such that the sum of terms in period of continued fraction for sqrt(k) exceeds that for all j's < k.
MATHEMATICA
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} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved