%I #7 May 24 2014 13:46:56
%S 6694,7219,7981,8809,9199,9391,11239,12229,13441,14452,14881,15139,
%T 15214,15901,16681,17839,17902,18307,18373,18583,18671,18862,18958,
%U 18961,20113,20569,20833,20983,21309,21429,21501,21673,21729,21748,22411,23038,23039
%N Period of continued fraction for sqrt(n) contains exactly 78 ones.
%t cf78Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],False,Count[ ContinuedFraction[ s][[2]],1]==78]]; Select[Range[25000],cf78Q] (* _Harvey P. Dale_, May 24 2014 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|