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

5627, 22504, 50631, 90008, 140635, 202512, 275639, 360016, 455643, 562520, 680647, 810024, 950651, 1102528, 1265655, 1440032, 1625659, 1822536, 2030663, 2250040, 2480667, 2722544, 2975671, 3240048, 3515675, 3802552, 4100679, 4410056, 4730683

Offset

1,1

Links

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

Mathematica

lt75Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 0, Min[ContinuedFraction[s][[2]]]]==75]; Select[Range[5*10^6], lt75Q] (* Harvey P. Dale, Jan 30 2015 *)

Crossrefs

Sequence in context: A203831 A014799 A031573 * A045128 A229591 A161193

Adjacent sequences: A031750 A031751 A031752 * A031754 A031755 A031756

Keyword

nonn

Author

David W. Wilson

Status

approved