|
%I #7 Jan 28 2017 09:44:54
%S 10606,12709,13591,15601,15766,15814,16774,17781,18451,19309,19819,
%T 19996,20041,20716,21796,22141,22531,22597,23131,23209,23389,24172,
%U 24397,25054,26737,26929,27309,27763,27791,28627,28687,28921,30577,30613,30631,31102
%N Period of continued fraction for sqrt(n) contains exactly 96 ones.
%t cf96Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ ContinuedFraction[ s] [[2]],1]]==96]; Select[Range[32000],cf96Q] (* _Harvey P. Dale_, Jan 28 2017 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
