|
%I #13 Jul 16 2021 02:44:57
%S 6563,26248,59055,104984,164035,236208,321503,419920,531459,656120,
%T 793903,944808,1108835,1285984,1476255,1679648,1896163,2125800,
%U 2368559,2624440,2893443,3175568,3470815,3779184,4100675,4435288,4783023,5143880
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 81.
%H Charles R Greathouse IV, <a href="/A031759/b031759.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
