|
%I #12 Jul 15 2021 22:15:31
%S 5931,23720,53367,94872,148235,213456,290535,379472,480267,592920,
%T 717431,853800,1002027,1162112,1334055,1517856,1713515,1921032,
%U 2140407,2371640,2614731,2869680,3136487,3415152,3705675,4008056,4322295,4648392,4986347
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 77.
%H Charles R Greathouse IV, <a href="/A031755/b031755.txt">Table of n, a(n) for n = 1..10000</a>
%t cQ[n_]:=Module[{s=Sqrt[n]},!IntegerQ[s]&&Min[ContinuedFraction[s][[2]]] == 77]; Select[Range[5000000],cQ] (* _Harvey P. Dale_, Dec 11 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
