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

2603, 10408, 23415, 41624, 65035, 93648, 127463, 166480, 210699, 260120, 314743, 374568, 439595, 509824, 585255, 665888, 751723, 842760, 938999, 1040440, 1147083, 1258928, 1375975, 1498224, 1625675, 1758328, 1896183, 2039240, 2187499, 2340960

Offset

1,1

Links

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

Mathematica

ltcf51Q[n_]:=Module[{s=Sqrt[n], lt}, lt=If[IntegerQ[s], 1, Min[ ContinuedFraction[ s][[2]]]]; lt==51]; Select[Range[2400000], ltcf51Q] (* Harvey P. Dale, Aug 26 2013 *)

Crossrefs

Sequence in context: A262799 A183965 A031549 * A001726 A109487 A015309

Adjacent sequences: A031726 A031727 A031728 * A031730 A031731 A031732

Keyword

nonn

Author

David W. Wilson

Status

approved