OFFSET
1,1
MATHEMATICA
cfp92Q[n_]:=Module[{sqrt=Sqrt[n]}, !IntegerQ[sqrt]&&Length[ ContinuedFraction[ sqrt][[2]]]==92]; Select[Range[16100], cfp92Q] (* Harvey P. Dale, Oct 12 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved