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

6563, 26248, 59055, 104984, 164035, 236208, 321503, 419920, 531459, 656120, 793903, 944808, 1108835, 1285984, 1476255, 1679648, 1896163, 2125800, 2368559, 2624440, 2893443, 3175568, 3470815, 3779184, 4100675, 4435288, 4783023, 5143880

Offset

1,1

Links

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

Mathematica

cf81Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[s][[2]]]]==81]; Select[Range[5144000], cf81Q] (* Harvey P. Dale, Jul 10 2019 *)

Crossrefs

Sequence in context: A321812 A031579 A288884 * A145050 A319604 A256837

Adjacent sequences: A031756 A031757 A031758 * A031760 A031761 A031762

Keyword

nonn

Author

David W. Wilson

Status

approved