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

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime[Range[3, 2000]], PrimeQ[2 # - 11]&] (* Vincenzo Librandi, Feb 02 2014 *)

Prog

(PARI) { n=0; p=1; for (m=1, 10^9, p=nextprime(p+1); if (isprime(2*p - 11), write("b063912.txt", n++, " ", p); if (n==1000, break)) ) } \\ Harry J. Smith, Sep 02 2009
(Magma) [n: n in [4..2000] | IsPrime(n) and IsPrime(2*n-11)]; // Vincenzo Librandi, Feb 02 2014

Crossrefs

Sequence in context: A021013 A156105 A062574 * A078725 A247478 A174360

Adjacent sequences: A063909 A063910 A063911 * A063913 A063914 A063915

Keyword

nonn,easy

Author

N. J. A. Sloane, Aug 31 2001

Status

approved