A063913 Primes p such that 2*p - 13 is also prime.
13, 37, 43, 61, 97, 103, 127, 163, 181, 193, 211, 223, 277, 307, 313, 337, 373, 421, 433, 523, 541, 571, 607, 613, 631, 733, 751, 811, 853, 877, 883, 907, 937, 1021, 1033, 1051, 1063, 1087, 1117, 1153, 1201, 1303, 1381, 1423, 1483, 1531, 1567, 1597, 1621, 1657
Offset: 1
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[n: n in [6..2000] | IsPrime(n) and IsPrime(2*n-13)]; // Vincenzo Librandi, Feb 02 2014
-
Mathematica
Select[Prime[Range[5, 2000]], PrimeQ[2 # - 13]&] (* Vincenzo Librandi, Feb 02 2014 *)
-
PARI
isok(p) = { isprime(p) && isprime(2*p - 13) } \\ Harry J. Smith, Sep 02 2009