%I #20 Sep 08 2022 08:45:04
%S 7,11,17,29,41,47,59,71,89,101,131,137,179,197,227,239,251,257,347,
%T 419,449,461,479,491,521,557,587,599,617,647,659,719,761,797,809,839,
%U 911,929,941,971,1019,1049,1061,1109,1181,1217,1229,1277
%N Primes p such that 2*p - 11 is also prime.
%H Harry J. Smith, <a href="/A063912/b063912.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[3, 2000]], PrimeQ[2 # - 11]&] (* _Vincenzo Librandi_, Feb 02 2014 *)
%o (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
%o (Magma) [n: n in [4..2000] | IsPrime(n) and IsPrime(2*n-11)]; // _Vincenzo Librandi_, Feb 02 2014
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, Aug 31 2001
|