|
%I
%S 6484,6679,9349,9556,9601,9781,9961,10711,11341,11686,12853,14939,
%T 15391,15913,16063,16561,16804,17419,17809,18127,18427,18489,18628,
%U 19273,19681,20143,20653,21011,21989,22027,23143,23299,23509,23731,23812,23887,24613
%N Period of continued fraction for sqrt(n) contains exactly 74 ones.
%t cf74Q[n_]:=Module[{s=Sqrt[n],t},t=If[IntegerQ[s],1,Count[ ContinuedFraction[ s][[2]],1]];t==74]; Select[Range[25000],cf74Q] (* _Harvey P. Dale_, May 26 2015 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
