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

2811, 11240, 25287, 44952, 70235, 101136, 137655, 179792, 227547, 280920, 339911, 404520, 474747, 550592, 632055, 719136, 811835, 910152, 1014087, 1123640, 1238811, 1359600, 1486007, 1618032, 1755675, 1898936, 2047815, 2202312, 2362427

Offset

1,1

Links

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

Mathematica

cf53Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[s][[2]]]] == 53]; Select[Range[237*10^4], cf53Q] (* Harvey P. Dale, Feb 11 2022 *)

Crossrefs

Sequence in context: A022233 A102170 A031551 * A252048 A254254 A254261

Adjacent sequences: A031728 A031729 A031730 * A031732 A031733 A031734

Keyword

nonn

Author

David W. Wilson

Status

approved