OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[5774], SquareFreeQ[#] && NumberFieldClassNumber@Sqrt[#] == 5 &] (* Arkadiusz Wesolowski, Oct 22 2012 *)
PROG
(PARI) is(n)=issquarefree(n)&&bnfinit('x^2-n).cyc==[5] \\ Charles R Greathouse IV, Oct 18 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo Dominici (pl.dm(AT)libero.it)
STATUS
approved