OFFSET
1,3
MATHEMATICA
t = {{2, 0}}; Do[If[! IntegerQ[Sqrt[k]], cnt = Count[ContinuedFraction[Sqrt[k]][[2]], 1]; If[cnt > t[[-1, 2]], AppendTo[t, {k, cnt}]]], {k, 3, 50000}]; Transpose[t][[2]]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Feb 29 2012
STATUS
approved