login
A020446
Period of continued fraction for sqrt(n) contains exactly ten 1's.
1
133, 157, 166, 181, 212, 253, 271, 283, 310, 334, 353, 394, 424, 466, 489, 491, 509, 523, 537, 542, 558, 566, 586, 599, 622, 634, 649, 653, 654, 662, 753, 771, 808, 825, 826, 834, 849, 857, 873, 877, 926, 953, 972, 999, 1000, 1004, 1014, 1017, 1030, 1033, 1044, 1049
OFFSET
1,1
MATHEMATICA
cf10Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==10]; Select[ Range[1200], cf10Q] (* Harvey P. Dale, Nov 14 2023 *)
CROSSREFS
Sequence in context: A046439 A031188 A102619 * A123997 A316630 A250766
KEYWORD
nonn
STATUS
approved