OFFSET
1,1
MATHEMATICA
upto=33000; Select[Complement[Range[upto], Range[Floor[Sqrt[upto]]]^2], Count[ContinuedFraction[Sqrt[#]][[2]], 1]==92&](* From Harvey P. Dale & Robert G. Wilson v, Jul 03 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved