A088856 Primes p such that cyclotomic(p,p-1) is prime.

2, 3, 7, 127, 8599

Offset: 1

Author

T. D. Noe, Nov 23 2003

Keywords

• more
• nonn

Comments

Some of the larger entries may only correspond to probable primes.

For p > 2, these are numbers p such that ((p-1)^p - 1)/(p-2) is prime. - Thomas Ordowski, Sep 02 2021

Links

• Eric Weisstein's World of Mathematics, Cyclotomic Polynomial

Crossrefs

Cf. A070519, A070525, A101753.

Programs

Mathematica

lst={}; Do[p=Prime[n]; If[PrimeQ[Cyclotomic[p, p-1]], AppendTo[lst, p]], {n, 400}]; lst

PARI

isok(p) = isprime(p) && isprime(polcyclo(p, p-1)); \\ Michel Marcus, Sep 02 2021

Formula

a(n) = A101753(n) + 1. - Thomas Ordowski, Sep 02 2021