login
A031759
Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 81.
1
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
KEYWORD
nonn
STATUS
approved