OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Class Number
MATHEMATICA
Select[Range[15809], NumberFieldDiscriminant@Sqrt[#] == # && NumberFieldClassNumber@Sqrt[#] == 7 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Oct 22 2012
STATUS
approved