A020446 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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

Adjacent sequences: A020443 A020444 A020445 * A020447 A020448 A020449

KEYWORD

nonn

AUTHOR

David W. Wilson

STATUS

approved