%I #18 Jun 27 2022 21:23:55
%S 901,3602,8103,14404,22505,32406,44107,57608,72909,90010,108911,
%T 129612,152113,176414,202515,230416,260117,291618,324919,360020,
%U 396921,435622,476123,518424,562525,608426,656127,705628,756929,810030,864931,921632
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 60.
%C a(n) = 900n^2 + n for n < 63, but a(63) = 3463382. - _Charles R Greathouse IV_, Aug 04 2017
%H Charles R Greathouse IV, <a href="/A031738/b031738.txt">Table of n, a(n) for n = 1..10000</a>
%t upto=930000;With[{c=Complement[Range[upto],Range[Floor[Sqrt[ upto]]]^2]}, Select[ c,Min[ ContinuedFraction[Sqrt[#]][[2]]]==60&]] (* _Harvey P. Dale_, May 19 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_