|
%I #7 Feb 18 2015 15:43:14
%S 991,1021,1303,1324,1357,1453,1543,1569,1597,1619,1689,1789,1804,1822,
%T 1948,1993,2053,2104,2174,2203,2253,2361,2381,2413,2458,2503,2654,
%U 2657,2729,2761,2794,2803,2861,2887,2893,2899,2973,2979,2983,2998,3085,3091
%N Period of continued fraction for sqrt(n) contains exactly 22 ones.
%t cf22Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[s][[2]],1]]==22]; Select[Range[3500],cf22Q] (* _Harvey P. Dale_, Feb 18 2015 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
