OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[10000], MoebiusMu[#] != 0 && NumberFieldClassNumber[Sqrt[-#]] == 6 &] (* Jinyuan Wang, Mar 08 2020 *)
PROG
(PARI) \\ See A005847.
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
N. J. A. Sloane, Jun 16 2000
STATUS
approved