%I #13 Jul 16 2021 02:36:25
%S 7227,28904,65031,115608,180635,260112,354039,462416,585243,722520,
%T 874247,1040424,1221051,1416128,1625655,1849632,2088059,2340936,
%U 2608263,2890040,3186267,3496944,3822071,4161648,4515675,4884152,5267079,5664456
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 85.
%H Charles R Greathouse IV, <a href="/A031763/b031763.txt">Table of n, a(n) for n = 1..10000</a>
%t lt85Q[n_]:=Module[{sr=Sqrt[n]},If[IntegerQ[sr],False,Min[ ContinuedFraction[ sr][[2]]]==85]]; Select[Range[5700000],lt85Q] (* _Harvey P. Dale_, Apr 18 2014 *)
%K nonn
%O 1,1
%A _David W. Wilson_
