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

2, 3, 7, 127, 8599

Offset

1,1

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

Table of n, a(n) for n=1..5.

Eric Weisstein's World of Mathematics, Cyclotomic Polynomial

Formula

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

Mathematica

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

Prog

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

Crossrefs

Cf. A070519, A070525, A101753.

Sequence in context: A182514 A062935 A083436 * A173913 A007013 A103405

Adjacent sequences: A088853 A088854 A088855 * A088857 A088858 A088859

Keyword

more,nonn

Author

T. D. Noe, Nov 23 2003

Status

approved