|
%I #15 Feb 21 2014 10:26:30
%S 9739,10459,13324,13831,13966,15421,17011,17677,18118,20209,20494,
%T 20551,20719,22081,22569,23601,24589,25801,25846,26359,26839,27133,
%U 27369,27427,27799,27964,28297,28828,29173,29881,30013,30727,31489,31574,31582,32083
%N Period of continued fraction for sqrt(n) contains exactly 92 ones.
%t upto=33000;Select[Complement[Range[upto],Range[Floor[Sqrt[upto]]]^2], Count[ContinuedFraction[Sqrt[#]][[2]],1]==92&](* From _Harvey P. Dale_ & _Robert G. Wilson v_, Jul 03 2011 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
