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

1371, 5480, 12327, 21912, 34235, 49296, 67095, 87632, 110907, 136920, 165671, 197160, 231387, 268352, 308055, 350496, 395675, 443592, 494247, 547640, 603771, 662640, 724247, 788592, 855675, 925496, 998055, 1073352, 1151387, 1232160

Offset

1,1

Links

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

Mathematica

lt37Q[n_]:=Module[{s=Sqrt[n], m}, m=If[IntegerQ[s], 1, Min[ ContinuedFraction[ s][[2]]]]; m==37]; Select[Range[125*10^4], lt37Q] (* Harvey P. Dale, Nov 10 2017 *)

Crossrefs

Sequence in context: A059082 A178485 A031535 * A135819 A371191 A181969

Adjacent sequences: A031712 A031713 A031714 * A031716 A031717 A031718

Keyword

nonn

Author

David W. Wilson

Status

approved