OFFSET
1,1
MATHEMATICA
upto=10000; With[{t=Complement[Range[upto], Range[Floor[Sqrt[ upto]]]^2]}, Select[t, Count[ContinuedFraction[Sqrt[#]][[2]], 1]==50&]] (* Harvey P. Dale, Dec 02 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved