|
| |
|
|
A088856
|
|
Primes p such that cyclotomic(p,p-1) is prime.
|
|
2
|
| |
|
|
|
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
|
| |
|
|
