%I #13 Jul 16 2021 02:39:13
%S 2210,8838,19884,35348,55230,79530,108248,141384,178938,220910,267300,
%T 318108,373334,432978,497040,565520,638418,715734,797468,883620,
%U 974190,1069178,1168584,1272408,1380650,1493310,1610388,1731884,1857798,1988130
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 94.
%H Charles R Greathouse IV, <a href="/A031772/b031772.txt">Table of n, a(n) for n = 1..10000</a>
%t cf94Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Min[ContinuedFraction[s][[2]]]]==94]; Select[Range[2000000],cf94Q] (* _Harvey P. Dale_, Mar 09 2019 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|