A089151 Primes p such that 6*p - 7 and 6*p - 5 are twin primes.
2, 3, 11, 13, 19, 31, 41, 53, 59, 71, 73, 101, 139, 173, 193, 239, 269, 271, 313, 349, 353, 379, 433, 449, 521, 563, 613, 643, 683, 823, 829, 881, 941, 1051, 1061, 1093, 1223, 1249, 1259, 1373, 1399, 1439, 1471, 1571, 1621, 1669, 1723, 1811, 1861, 1951, 1973
Offset: 1
Examples
6*19 - 7 = 107, 6*19 - 5 = 109; 107 and 109 are twin primes.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Magma
[p: p in PrimesUpTo(1000000)| IsPrime(6*p-5) and IsPrime(6*p-7)] // Vincenzo Librandi, Nov 16 2010
-
Mathematica
Select[Range[2, 2000], And @@ PrimeQ[{#, 6#-5, 6#-7}] &] (* Amiram Eldar, Jan 15 2020 *) Select[Prime[Range[300]],AllTrue[6#-{5,7},PrimeQ]&] (* Harvey P. Dale, Nov 18 2022 *)