login
Period of continued fraction for sqrt(n) contains exactly 25 ones.
0

%I #7 Apr 12 2019 14:04:43

%S 3799,7363,10375,11155,11999,12283,15695,16591,17819,18616,18971,

%T 19511,20787,23707,27371,31191,31655,31855,34571,36895,37496,38003,

%U 39376,39952,40984,41531,41623,41995,42875,42984,45655,46895,50095,51875,54352,54731

%N Period of continued fraction for sqrt(n) contains exactly 25 ones.

%t cf25Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[s][[2]],1]]==25]; Select[Range[55000],cf25Q] (* _Harvey P. Dale_, Apr 12 2019 *)

%K nonn

%O 1,1

%A _David W. Wilson_