OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Class Number
MATHEMATICA
Select[Range[2726], SquareFreeQ[#] && NumberFieldClassNumber@Sqrt[#] == 6 &]
PROG
(PARI) is(n)=issquarefree(n) && qfbclassno(if(n%4>1, 4, 1)*n)==6 \\ Charles R Greathouse IV, Jan 19 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Oct 19 2012
STATUS
approved