login
A233423
Values of n at which the period of the continued fraction for sqrt(n) is nondecreasing.
0
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
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 A376988 A309815
KEYWORD
nonn
AUTHOR
David Spies, Dec 09 2013
EXTENSIONS
Extended by T. D. Noe, Dec 10 2013
STATUS
approved