|
%I #14 Jul 15 2021 01:51:32
%S 325,1298,2919,5188,8105,11670,15883,20744,26253,32410,39215,46668,
%T 54769,63518,72915,82960,93653,104994,116983,129620,142905,156838,
%U 171419,186648,202525,219050,236223,254044,272513,291630,311395,331808,352869,374578,396935,419940,443593,467894,469262
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 36.
%H Charles R Greathouse IV, <a href="/A031714/b031714.txt">Table of n, a(n) for n = 1..10000</a>
%t lt36Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Min[ContinuedFraction[s][[2]]]]==36]; Select[Range[360000],lt36Q] (* _Harvey P. Dale_, Mar 07 2015 *)
%K nonn
%O 1,1
%A _David W. Wilson_
%E a(34)-a(39) from _Charles R Greathouse IV_, Aug 03 2017
|
