A070519 Numbers k such that Cyclotomic(k,k) (i.e., the value of k-th cyclotomic polynomial at k) is a prime number.
2, 3, 4, 6, 10, 12, 14, 19, 31, 46, 74, 75, 98, 102, 126, 180, 236, 310, 368, 1770, 1858, 3512, 4878, 5730, 7547, 7990, 8636, 9378, 11262
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Cyclotomic Polynomial
- Wikipedia, Aurifeuillean factorization
Crossrefs
Programs
-
Mathematica
Do[s=Cyclotomic[n, n]; If[PrimeQ[s], Print[n]], {n, 2, 256}]
-
PARI
for(n=2,10^9,if(ispseudoprime(polcyclo(n,n)),print1(n,", "))); \\ Joerg Arndt, Jan 22 2015
Extensions
More terms from T. D. Noe, Oct 17 2003
a(29) from Charles R Greathouse IV, May 05 2011
Comments