%I #12 Jul 06 2022 19:16:45
%S 2011,2326,2374,4276,4701,4996,5851,6436,6502,6547,6861,6982,7027,
%T 7041,7078,7153,7429,8054,8141,8171,8219,8443,8452,9011,9993,10186,
%U 10196,10497,10633,10646,10979,11249,11366,11506,12163,12307,12509,12547,12766
%N Numbers k such that the continued fraction for sqrt(k) has period 94.
%t cf94Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Length[ContinuedFraction[s][[2]]]] == 94]; Select[Range[13000],cf94Q] (* _Harvey P. Dale_, Jul 06 2022 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|