login
Numbers k such that Q(sqrt(-k)) has class number 10.
5

%I #15 May 26 2024 13:17:40

%S 74,86,119,122,143,159,166,181,197,218,229,303,317,319,346,373,394,

%T 415,421,422,538,541,611,613,635,694,699,709,757,779,803,851,853,877,

%U 923,982,1093,1115,1213,1318,1643,1707,1779,1819,1835,1891,1923

%N Numbers k such that Q(sqrt(-k)) has class number 10.

%H Jinyuan Wang, <a href="/A055111/b055111.txt">Table of n, a(n) for n = 1..87</a>

%H <a href="/index/Qua#quadfield">Index entries for sequences related to quadratic fields</a>

%t Select[Range[10000], MoebiusMu[#] != 0 && NumberFieldClassNumber[Sqrt[-#]] == 10 &] (* _Jinyuan Wang_, Mar 08 2020 *)

%o (PARI) \\ See A005847.

%Y See A003173, A005847, A006203, A046085, A046002, A055109, A046004, A055110, A046006, A055111 for class numbers 1 through 10.

%K nonn,fini,full

%O 1,1

%A _N. J. A. Sloane_, Jun 16 2000