|
%I #8 Jul 09 2015 10:36:20
%S 10399,12076,13654,13711,14029,14221,14551,15094,15541,15646,15829,
%T 15919,16249,17356,18934,19069,19204,19489,20518,20773,21529,21841,
%U 22174,23041,23713,23761,24241,24364,24646,25341,25969,26203,26797,26836,27201,27868
%N Period of continued fraction for sqrt(n) contains exactly 98 ones.
%t cf98Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1, Count[ ContinuedFraction[ s][[2]],1]]==98]; Select[Range[30000],cf98Q] (* _Harvey P. Dale_, Jul 09 2015 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
