%I #8 Jan 11 2013 16:29:50
%S 455,615,776,824,836,920,1064,1124,1160,1263,1284,1460,1495,1524,1544,
%T 1592,1604,1652,1695,1739,1748,1796,1880,1887,1896,1928,1940,1956,
%U 2136,2247,2360,2404,2407,2483,2487,2532,2552
%N Discriminants of imaginary quadratic fields with class number 20 (negated).
%C A finite sequence with exactly 350 terms.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ClassNumber.html">Class Number.</a>
%t Reap[ For[n = 1, n < 3000, n++, s = Sqrt[-n]; If[ NumberFieldClassNumber[s] == 20, d = -NumberFieldDiscriminant[s]; Print[d]; Sow[d]]]][[2, 1]] // Union (* _Jean-François Alcover_, Oct 05 2012 *)
%Y Cf. A006203, A013658, A014602, A014603, A046002, ..., A046016, A046018, A046020.
%K nonn,fini
%O 1,1
%A _Eric W. Weisstein_, Nov 19 2006
|