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

1523, 6088, 13695, 24344, 38035, 54768, 74543, 97360, 123219, 152120, 184063, 219048, 257075, 298144, 342255, 389408, 439603, 492840, 549119, 608440, 670803, 736208, 804655, 876144, 950675, 1028248, 1108863, 1192520, 1279219, 1368960

Offset

1,1

Links

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

Mathematica

ltcf39Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ ContinuedFraction[s] [[2]]]] ==39]; Select[Range[1400000], ltcf39Q] (* Harvey P. Dale, Jun 20 2015 *)

Crossrefs

Sequence in context: A073104 A031537 A217387 * A236880 A226700 A226701

Adjacent sequences: A031714 A031715 A031716 * A031718 A031719 A031720

Keyword

nonn

Author

David W. Wilson

Status

approved