login
A206583
The least number s having exactly n threes in the continued fraction of sqrt(s).
4
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
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
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 19 2012
STATUS
approved