%I #12 Jul 11 2021 07:23:24
%S 5857,5861,6101,7001,7141,7834,8314,8429,8989,10289,10789,11041,11101,
%T 11482,11581,11626,12377,13217,13309,13997,14261,16433,16949,17386,
%U 20521,21178,21277,21785,22013,22753,27877,28493,28793,29285,29333,29341,30169
%N Numbers k such that the continued fraction for sqrt(k) has period 77.
%t cf77Q[n_]:=Module[{s=Sqrt[n]},!IntegerQ[s]&&Length[ContinuedFraction[s][[2]]]==77]; Select[Range[31000],cf77Q] (* _Harvey P. Dale_, Aug 04 2013 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|