A031818 Numbers k such that the period of the continued fraction for sqrt(k) contains exactly 50 ones.

3004, 3676, 3691, 4414, 5377, 5413, 5509, 5524, 5692, 5721, 5758, 6009, 6091, 6349, 6541, 6781, 6796, 6871, 6961, 7009, 7041, 7149, 7321, 7609, 7729, 7732, 7996, 8179, 8529, 8617, 8881, 8902, 8929, 8969, 9013, 9172, 9249, 9397, 9589, 9706, 9733, 9851

Offset

1,1

Links

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

Mathematica

upto=10000; With[{t=Complement[Range[upto], Range[Floor[Sqrt[ upto]]]^2]}, Select[t, Count[ContinuedFraction[Sqrt[#]][[2]], 1]==50&]] (* Harvey P. Dale, Dec 02 2011 *)

Crossrefs

Sequence in context: A140915 A140928 A090162 * A152207 A279584 A004228

Adjacent sequences: A031815 A031816 A031817 * A031819 A031820 A031821

Keyword

nonn

Author

David W. Wilson

Status

approved