|
%I #11 Mar 08 2020 22:51:47
%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 For PARI code 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
|
