A031402 Sum of terms in period of continued fraction for sqrt(a(n)) increases.
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
Keywords
Programs
-
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} ]
Comments