%I #9 Feb 24 2022 23:18:13
%S 697,785,940,985,1345,1384,1708,1765,1937,2024,2233,2296,2505,2941,
%T 2993,3021,3144,3281,3305,3368,3496,3576,3580,3592,3596,3624,3973,
%U 4065,4344,4764,4765,4844,5073,5353,5356,5368,5369,5529,5621,5624,5685,5901,6108,6153
%N Fundamental discriminants of real quadratic number fields with class number 6.
%H Andy Huchala, <a href="/A218156/b218156.txt">Table of n, a(n) for n = 1..20000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://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[6153], NumberFieldDiscriminant@Sqrt[#] == # && NumberFieldClassNumber@Sqrt[#] == 6 &]
%Y Cf. A003656, A094619, A094612-A094614, A218157-A218160.
%K nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Oct 22 2012
|