A031691 Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 13.

171, 680, 1527, 2712, 4235, 6096, 8295, 10832, 13707, 16920, 20471, 24360, 28587, 31003, 33152, 36127, 38055, 43296, 48875, 54792, 61047, 67640, 71330, 74571, 81840, 89447, 97392, 105675, 106326, 114296, 114973, 123255, 123958, 128219, 132552

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[200000], !IntegerQ[Sqrt[#]]&&Min[ContinuedFraction[Sqrt[#]][[2]]]==13&] (* Vincenzo Librandi, Feb 06 2012 *)

Crossrefs

Sequence in context: A185837 A016057 A043407 * A158220 A079654 A220869

Adjacent sequences: A031688 A031689 A031690 * A031692 A031693 A031694

Keyword

nonn

Author

David W. Wilson

Status

approved