|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|