login
A031793
Period of continued fraction for sqrt(n) contains exactly 25 ones.
0
3799, 7363, 10375, 11155, 11999, 12283, 15695, 16591, 17819, 18616, 18971, 19511, 20787, 23707, 27371, 31191, 31655, 31855, 34571, 36895, 37496, 38003, 39376, 39952, 40984, 41531, 41623, 41995, 42875, 42984, 45655, 46895, 50095, 51875, 54352, 54731
OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A284872 A253280 A251518 * A234765 A228545 A179174
KEYWORD
nonn
STATUS
approved