OFFSET
1,1
MATHEMATICA
o35Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]==35]]; Select[Range[85000], o35Q] (* Harvey P. Dale, Sep 07 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved