A020446 Period of continued fraction for sqrt(n) 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,1

Links

Table of n, a(n) for n=1..52.

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: A031188 A379400 A102619 * A123997 A316630 A250766

Adjacent sequences: A020443 A020444 A020445 * A020447 A020448 A020449

Keyword

nonn

Author

David W. Wilson

Status

approved