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
KEYWORD
nonn
AUTHOR
David Spies, Dec 09 2013
EXTENSIONS
Extended by T. D. Noe, Dec 10 2013
STATUS
approved