%I A094613
%S A094613 145,328,445,505,520,680,689,777,780,793,840,876,897,901,905,924,1020,
%T A094613 1045,1096,1105,1145,1160,1164,1221,1288,1292,1313,1320,1365,1480,1560,
%U A094613 1640,1677,1736,1740,1745,1752,1820,1848,1885,1932,2005,2040
%N A094613 Discriminants of real quadratic number fields with class number 4.
%H A094613 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               ClassNumber.html">ClassNumber</a>
%t A094613 Needs["NumberTheory`NumberTheoryFunctions`"] (*then*) Flatten[Position[ClassNumber/
               @Range[2040], 4, {1}]]
%Y A094613 Cf. A003656, 094619, A094612, A094614.
%Y A094613 Sequence in context: A159777 A051414 A158133 this_sequence A116208 A031702 
               A031600
%Y A094613 Adjacent sequences: A094610 A094611 A094612 this_sequence A094614 A094615 
               A094616
%K A094613 nonn
%O A094613 1,1
%A A094613 Eric Weisstein (eric(AT)weisstein.com), May 14, 2004