%I #14 Jul 15 2021 01:51:21
%S 401,1602,3603,6404,10005,14406,19607,25608,32409,40010,48411,57612,
%T 67613,78414,90015,102416,115617,129618,144419,160020,176421,193622,
%U 211623,230424,250025,270426,291627,313628,336429,360030,384431,409632,435633,462434,490035,518436,547637,577638,608439,640040,672441,705642
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 40.
%H Charles R Greathouse IV, <a href="/A031718/b031718.txt">Table of n, a(n) for n = 1..10000</a>
%t cf40Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Min[ContinuedFraction[s][[2]]]]==40]; Select[Range[706000],cf40Q] (* _Harvey P. Dale_, Aug 20 2020 *)
%K nonn
%O 1,1
%A _David W. Wilson_
%E a(33)-a(42) from _Charles R Greathouse IV_, Aug 03 2017
|