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

2305, 9218, 20739, 36868, 57605, 82950, 112903, 147464, 186633, 230410, 278795, 331788, 389389, 451598, 518415, 589840, 665873, 746514, 831763, 921620, 1016085, 1115158, 1218839, 1327128, 1440025, 1557530, 1679643, 1806364, 1937693, 2073630

Offset

1,1

Links

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

Mathematica

lt96Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[s][[2]]]]==96]; Select[Range[21*10^5], lt96Q] (* Harvey P. Dale, Sep 03 2017 *)

Crossrefs

Sequence in context: A174558 A338617 A274578 * A031546 A250874 A247698

Adjacent sequences: A031771 A031772 A031773 * A031775 A031776 A031777

Keyword

nonn

Author

David W. Wilson

Status

approved