|
%I
%S 10339,11911,12667,13303,21691,21823,29419,33835,34435,35947,35995,
%T 37503,37631,37855,38383,40391,40504,40843,43927,44243,45719,54279,
%U 55615,55651,56563,58651,60875,61387,61439,63891,66679,75544,77224,78376,79119,83295
%N Period of continued fraction for sqrt(n) contains exactly 35 ones.
%t 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 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
