A020446 Numbers k such that the period of the continued fraction for sqrt(k) contains exactly ten 1's.

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

Author

David W. Wilson

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Programs

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 *)