|
|
A082539
|
|
Primes p such that there is no prime q, q < p with q+1 dividing p+1.
|
|
6
|
|
|
2, 3, 13, 37, 61, 73, 109, 157, 193, 229, 241, 277, 313, 337, 373, 397, 409, 421, 457, 541, 577, 613, 661, 673, 709, 733, 757, 829, 877, 997, 1009, 1033, 1069, 1093, 1117, 1129, 1153, 1201, 1213, 1237, 1249, 1297, 1321, 1381, 1453, 1489, 1597, 1621, 1657
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[Prime[Range[260]], AllTrue[Most[Divisors[# + 1]], !PrimeQ[#1 - 1] &] &] (* Amiram Eldar, Jun 06 2022 *)
|
|
CROSSREFS
|
Cf. A092307 (primes p such that there are no primes q, 3 < q < p, such that (q-1) divides (p-1)).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|