%I #13 Jul 16 2021 02:42:11
%S 4763,19048,42855,76184,119035,171408,233303,304720,385659,476120,
%T 576103,685608,804635,933184,1071255,1218848,1375963,1542600,1718759,
%U 1904440,2099643,2304368,2518615,2742384,2975675,3218488,3470823,3732680,4004059
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 69.
%H Charles R Greathouse IV, <a href="/A031747/b031747.txt">Table of n, a(n) for n = 1..10000</a>
%t cf69Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Min[ContinuedFraction[s][[2]]]]==69]; Select[Range[41*10^5],cf69Q] (* _Harvey P. Dale_, Jul 17 2017 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|