OFFSET
1,1
MATHEMATICA
Do[s=Cyclotomic[n, n]; If[PrimeQ[s], Print[s]], {n, 2, 256}]; output = the prime value
Select[Table[Cyclotomic[n, n], {n, 300}], PrimeQ] (* Harvey P. Dale, Dec 06 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 02 2002
STATUS
approved