OFFSET
1,1
LINKS
MATHEMATICA
Select[Table[Cyclotomic[k, -4], {k, 0, 100}], PrimeQ[#] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Sep 07 2017
STATUS
approved