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,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.

Links

Table of n, a(n) for n=1..51.

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

Cf. A031403, A010340.

Sequence in context: A166070 A053813 A116974 * A019438 A023798 A369635

Adjacent sequences: A031399 A031400 A031401 * A031403 A031404 A031405

Keyword

nonn

Author

David W. Wilson

Status

approved