login
Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 53.
1

%I #12 Feb 11 2022 16:36:48

%S 2811,11240,25287,44952,70235,101136,137655,179792,227547,280920,

%T 339911,404520,474747,550592,632055,719136,811835,910152,1014087,

%U 1123640,1238811,1359600,1486007,1618032,1755675,1898936,2047815,2202312,2362427

%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 53.

%H Charles R Greathouse IV, <a href="/A031731/b031731.txt">Table of n, a(n) for n = 1..10000</a>

%t cf53Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Min[ContinuedFraction[s][[2]]]] == 53]; Select[Range[237*10^4],cf53Q] (* _Harvey P. Dale_, Feb 11 2022 *)

%K nonn

%O 1,1

%A _David W. Wilson_