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

3723, 14888, 33495, 59544, 93035, 133968, 182343, 238160, 301419, 372120, 450263, 535848, 628875, 729344, 837255, 952608, 1075403, 1205640, 1343319, 1488440, 1641003, 1801008, 1968455, 2143344, 2325675, 2515448, 2712663, 2917320, 3129419

Offset

1,1

Links

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

Mathematica

cf61Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[ s][[2]]]]==61]; Select[Range[313*10^4], cf61Q] (* Harvey P. Dale, Jun 09 2021 *)

Crossrefs

Sequence in context: A221013 A224436 A031559 * A251206 A038012 A020410

Adjacent sequences: A031736 A031737 A031738 * A031740 A031741 A031742

Keyword

nonn

Author

David W. Wilson

Status

approved