|
%I #14 Jul 11 2021 01:29:23
%S 1366,1579,1684,2707,3189,3371,3446,3826,3851,4132,4612,4869,4881,
%T 4948,5169,5464,5563,5867,6313,6721,6772,7366,7478,7876,7907,7918,
%U 8006,8122,8152,8198,8449,8564,8754,8950,9053,9188,9538,9787,9814,9923,9994,10198
%N Numbers k such that the continued fraction for sqrt(k) has period 70.
%t cf70Q[n_]:=Module[{sr=Sqrt[n]},!IntegerQ[sr]&&Length[ContinuedFraction[ sr][[2]]]==70]; Select[Range[11000],cf70Q] (* _Harvey P. Dale_, Jul 24 2012 *)
%Y Cf. A003285.
%K nonn
%O 1,1
%A _David W. Wilson_
|
