|
%I #14 Jul 11 2021 07:22:49
%S 1726,2284,2734,2974,3823,4222,5541,5773,5932,6094,6652,6959,7646,
%T 7855,7924,8413,8793,8824,9239,9369,9451,9535,9609,10109,10126,10391,
%U 11017,11212,11337,11493,11575,11740,11896,12079,12633,12671,12691,12761,12871
%N Numbers k such that the continued fraction for sqrt(k) has period 88.
%t cf88Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Length[ ContinuedFraction[ s][[2]]]] == 88]; Select[Range[13000],cf88Q] (* _Harvey P. Dale_, Dec 07 2014 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
