A089438 Primes p such that 6p+11 is also a prime.
2, 3, 5, 7, 13, 17, 23, 31, 37, 41, 43, 47, 73, 83, 97, 101, 107, 127, 131, 157, 167, 173, 181, 197, 211, 227, 233, 257, 271, 281, 283, 311, 313, 317, 331, 353, 367, 383, 397, 401, 433, 457, 461, 463, 491, 521, 541, 563, 587, 601, 631, 653, 673, 677, 691, 701, 727, 733, 751
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A094517 (complement in primes).
Programs
-
Mathematica
Select[Prime[Range[200]],PrimeQ[6#+11]&] (* Harvey P. Dale, Jun 20 2012 *)
-
PARI
diff2p(n,a,b) = { forprime(x=3,n, y=(x-a)/b; if(y==floor(y), if(isprime(y), print1(y",")) ) ) }