|
%I #14 Jul 11 2021 01:27:02
%S 1699,2181,2347,2371,2452,2761,3076,3789,4003,4169,4291,4363,4456,
%T 4694,4915,4987,5074,5137,5201,5347,5636,5651,5899,5924,6041,6259,
%U 6331,6634,6717,6736,6884,7142,7179,7198,7459,7547,7556,7651,7961,8079,8201,8331
%N Numbers k such that the continued fraction for sqrt(k) has period 66.
%t cf66Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],{1},Length[ ContinuedFraction[ s] [[2]]]]==66]; Select[Range[9000],cf66Q] (* _Harvey P. Dale_, Mar 27 2016 *)
%Y Cf. A003285.
%K nonn
%O 1,1
%A _David W. Wilson_
|
