login
A031402
Sum of terms in period of continued fraction for sqrt(a(n)) increases.
1
2, 3, 5, 6, 7, 11, 13, 18, 19, 22, 31, 43, 46, 61, 67, 94, 109, 127, 139, 151, 166, 199, 211, 214, 271, 301, 331, 379, 454, 526, 571, 631, 694, 739, 751, 859, 886, 919, 991, 1279, 1291, 1366, 1549, 1579, 1621, 1726, 1831, 1894, 1999, 2011, 2206
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
Sequence in context: A166070 A053813 A116974 * A019438 A023798 A369635
KEYWORD
nonn
STATUS
approved