A233423 Values of n at which the period of the continued fraction for sqrt(n) is nondecreasing.

1, 2, 3, 6, 7, 13, 19, 21, 22, 31, 43, 46, 76, 94, 124, 133, 139, 151, 166, 211, 214, 244, 301, 309, 331, 421, 526, 571, 604, 631, 751, 886, 919, 991, 1279, 1291, 1324, 1366, 1516, 1621, 1726, 2011, 2311, 2566, 2671, 3004, 3019, 3259, 3334, 3691, 3931, 4174

Offset

1,2

Links

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

Mathematica

t = {1}; mx = 0; n = 1; While[Length[t] < 60, n++; If[! IntegerQ[Sqrt[n]], len = Length[ContinuedFraction[Sqrt[n]][[2]]]; If[len >= mx, AppendTo[t, n]; mx = len]]]; t (* T. D. Noe, Dec 10 2013 *)

Crossrefs

Superset of A013645.

Sequence in context: A183558 A328164 A294916 * A328024 A309815 A256800

Adjacent sequences: A233420 A233421 A233422 * A233424 A233425 A233426

Keyword

nonn

Author

David Spies, Dec 09 2013

Extensions

Extended by T. D. Noe, Dec 10 2013

Status

approved