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

3483, 13928, 31335, 55704, 87035, 125328, 170583, 222800, 281979, 348120, 421223, 501288, 588315, 682304, 783255, 891168, 1006043, 1127880, 1256679, 1392440, 1535163, 1684848, 1841495, 2005104, 2175675, 2353208, 2537703, 2729160, 2927579

Offset

1,1

Links

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

Mathematica

lt59Q[n_]:=Module[{sr=Sqrt[n], m}, m=If[IntegerQ[sr], 1, Min[ ContinuedFraction[ sr][[2]]]]; m==59]; Select[Range[3000000], lt59Q] (* Harvey P. Dale, Jan 18 2014 *)

Crossrefs

Sequence in context: A156773 A174753 A031557 * A268156 A180994 A204721

Adjacent sequences: A031734 A031735 A031736 * A031738 A031739 A031740

Keyword

nonn

Author

David W. Wilson

Status

approved