|
%I #8 Jul 21 2015 12:16:49
%S 211,214,382,385,393,436,457,487,501,511,524,526,553,559,581,614,657,
%T 716,749,781,831,846,856,862,869,875,881,893,950,996,1002,1019,1046,
%U 1094,1123,1132,1137,1169,1194,1234,1246,1266,1309,1334,1353,1359,1361,1372
%N Period of continued fraction for sqrt(n) contains exactly 12 ones.
%t cf12Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ ContinuedFraction[ s][[2]], 1]] == 12]; Select[Range[1500],cf12Q] (* _Harvey P. Dale_, Jul 21 2015 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
