%I #18 Jul 15 2021 01:50:09
%S 197,786,1767,3140,4905,7062,9611,12552,15885,19610,23727,28236,33137,
%T 38430,44115,50192,56661,63522,70775,78420,86457,94886,103707,112920,
%U 122525,132522,142911,153692,164865,176430,177270,188387,200736,213477
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 28.
%H Charles R Greathouse IV, <a href="/A031706/b031706.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[250000], !IntegerQ[Sqrt[#]] && Min[ContinuedFraction[Sqrt[#]][[2]]] == 28&] (* _Vincenzo Librandi_, Jan 27 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|