A088875 Cyclotomic(n,-n) is prime.
1, 3, 4, 5, 6, 9, 12, 14, 17, 82, 86, 157, 158, 180, 210, 236, 245, 368, 462, 842, 1034, 3512, 3977, 8636
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Cyclotomic Polynomial
Crossrefs
Programs
-
Mathematica
Do[p=Prime[n]; If[PrimeQ[Cyclotomic[n, -n]], Print[p]], {n, 100}]
Comments