%I #6 Feb 16 2025 08:33:18
%S 577,1009,1601,1761,2029,2913,4229,4348,5176,5273,5417,7736,8097,8661,
%T 8773,9004,9029,9049,9101,9208,9289,9868,10117,10313,10357,10713,
%U 10957,11021,11053,11269,11537,11621,12497,12977,13049,13313,13701,14201,15277,15809
%N Fundamental discriminants of real quadratic number fields with class number 7.
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/ClassNumber.html">Class Number</a>
%H <a href="/index/Qua#quadfield">Index entries for sequences related to quadratic fields</a>
%t Select[Range[15809], NumberFieldDiscriminant@Sqrt[#] == # && NumberFieldClassNumber@Sqrt[#] == 7 &]
%Y Cf. A003656, A094619, A094612-A094614, A218156, A218158-A218160.
%K nonn,changed
%O 1,1
%A _Arkadiusz Wesolowski_, Oct 22 2012