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

843, 3368, 7575, 13464, 21035, 30288, 41223, 53840, 68139, 84120, 101783, 121128, 142155, 164864, 189255, 215328, 243083, 272520, 303639, 336440, 370923, 407088, 444935, 484464, 525675, 568568, 613143, 659400, 707339, 732795, 756960, 785055

Offset

1,1

Links

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

Mathematica

cf29Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[s][[2]]]]==29]; Select[Range[800000], cf29Q] (* Harvey P. Dale, Oct 29 2018 *)

Crossrefs

Sequence in context: A004969 A004949 A252061 * A158403 A114359 A038013

Adjacent sequences: A031704 A031705 A031706 * A031708 A031709 A031710

Keyword

nonn

Author

David W. Wilson

Status

approved