|
%I #14 Jul 11 2021 07:23:14
%S 1759,1981,2206,2764,2989,3559,3628,3694,3817,3868,3921,4041,4333,
%T 5006,5293,5294,5407,5647,5877,6193,6281,6718,6847,6892,7660,8039,
%U 8137,8359,8561,8596,9487,9788,9989,10014,10495,10579,10697,10737,10882,11006
%N Numbers k such that the continued fraction for sqrt(k) has period 80.
%t Select[Range[2000], Length[ContinuedFraction[Sqrt[#]][[2]]] == 80 &] (* _Alonso del Arte_, Jun 23 2018 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
