A063912 Primes p such that 2*p - 11 is also prime.
7, 11, 17, 29, 41, 47, 59, 71, 89, 101, 131, 137, 179, 197, 227, 239, 251, 257, 347, 419, 449, 461, 479, 491, 521, 557, 587, 599, 617, 647, 659, 719, 761, 797, 809, 839, 911, 929, 941, 971, 1019, 1049, 1061, 1109, 1181, 1217, 1229, 1277, 1301, 1361, 1427, 1487
Offset: 1
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n: n in [4..2000] | IsPrime(n) and IsPrime(2*n-11)]; // Vincenzo Librandi, Feb 02 2014
-
Mathematica
Select[Prime[Range[3, 2000]], PrimeQ[2 # - 11]&] (* Vincenzo Librandi, Feb 02 2014 *)
-
PARI
isok(p) = { isprime(p) && isprime(2*p - 11) } \\ Harry J. Smith, Sep 02 2009