A206583 The least number s having exactly n threes in the continued fraction of sqrt(s).

2, 11, 28, 335, 69, 1507, 268, 1963, 589, 7675, 1318, 2899, 1549, 11575, 1789, 17371, 3331, 22459, 3319, 23791, 6211, 18019, 6379, 63379, 6694, 17131, 9199, 75331, 10189, 49471, 10429, 75091, 16069, 105991, 17509, 114559, 14221, 152707, 25141, 159031, 20959

Offset

0,1

Links

Table of n, a(n) for n=0..40.

Mathematica

nn = 50; zeros = nn; t = Table[0, {nn}]; k = 2; While[zeros > 0, If[! IntegerQ[Sqrt[k]], cnt = Count[ContinuedFraction[Sqrt[k]][[2]], 3]; If[cnt <= nn && t[[cnt]] == 0, t[[cnt]] = k; zeros--]]; k++]; Join[{2}, t]

Crossrefs

Cf. A206578 (n ones), A206582 (n twos), A206584 (n fours), A206585 (n fives).

Sequence in context: A345035 A220833 A254627 * A045493 A116038 A213521

Adjacent sequences: A206580 A206581 A206582 * A206584 A206585 A206586

Keyword

nonn

Author

T. D. Noe, Mar 19 2012

Status

approved