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

401, 1602, 3603, 6404, 10005, 14406, 19607, 25608, 32409, 40010, 48411, 57612, 67613, 78414, 90015, 102416, 115617, 129618, 144419, 160020, 176421, 193622, 211623, 230424, 250025, 270426, 291627, 313628, 336429, 360030, 384431, 409632, 435633, 462434, 490035, 518436, 547637, 577638, 608439, 640040, 672441, 705642

Offset

1,1

Links

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

Mathematica

cf40Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[s][[2]]]]==40]; Select[Range[706000], cf40Q] (* Harvey P. Dale, Aug 20 2020 *)

Crossrefs

Sequence in context: A158313 A094614 A104926 * A102324 A156785 A031628

Adjacent sequences: A031715 A031716 A031717 * A031719 A031720 A031721

Keyword

nonn

Author

David W. Wilson

Extensions

a(33)-a(42) from Charles R Greathouse IV, Aug 03 2017

Status

approved