%I #12 Jul 15 2021 01:49:31
%S 731,2920,6567,11672,18235,26256,35735,46672,59067,72920,88231,105000,
%T 123227,142912,164055,186656,210715,236232,263207,291640,321531,
%U 352880,385687,419952,455675,492856,531495,552104,571592,594496,613147,656160
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 27.
%H Charles R Greathouse IV, <a href="/A031705/b031705.txt">Table of n, a(n) for n = 1..10000</a>
%t lt27Q[n_]:=Module[{sr=Sqrt[n]},If[IntegerQ[sr],False,Min[ ContinuedFraction[ sr][[2]]]==27]]; Select[Range[660000],lt27Q] (* _Harvey P. Dale_, May 11 2014 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|