|
%I
%S 45799,56323,61831,78247,99811,106387,133003,136315,139807,147715,
%T 150331,151139,162559,162835,174399,178363,188031,188871,192376,
%U 198535,206259,215431,216863,219007,221779,225496,225592,227859,230039,233815,239896
%N Period of continued fraction for sqrt(n) contains exactly 73 ones.
%t cf73Q[n_]:=Module[{sqr=Sqrt[n]},!IntegerQ[sqr] && Count[ ContinuedFraction[ sqr] [[2]],1]==73]; Select[Range[250000],cf73Q] (* _Harvey P. Dale_, Nov 23 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
