|
%I #7 Jun 19 2013 10:40:31
%S 8791,9211,10287,10579,11368,13031,13603,14039,14151,15544,16287,
%T 16799,17719,20099,20711,21971,26555,27512,27599,28103,28187,28783,
%U 30439,31659,31672,33431,34427,36087,36419,37051,38656,40183,40991,42552,43259,43360
%N Period of continued fraction for sqrt(n) contains exactly 23 ones.
%t cf23Q[n_]:=Module[{s=Sqrt[n]},!IntegerQ[s]&&Count[ ContinuedFraction[ s][[2]],1]==23]; Select[Range[45000],cf23Q] (* _Harvey P. Dale_, Jun 19 2013 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
