A082539 Primes p such that there is no prime q, q < p with q+1 dividing p+1.
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
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n=1..1000
Crossrefs
Programs
-
Mathematica
Select[Prime[Range[260]], AllTrue[Most[Divisors[# + 1]], !PrimeQ[#1 - 1] &] &] (* Amiram Eldar, Jun 06 2022 *)
Extensions
More terms from Reinhard Zumkeller, May 18 2003
Comments