login
A063913
Primes p such that 2*p - 13 is also prime.
13
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
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime[Range[5, 2000]], PrimeQ[2 # - 13]&] (* Vincenzo Librandi, Feb 02 2014 *)
PROG
(PARI) { n=0; p=1; for (m=1, 10^9, p=nextprime(p+1); if (isprime(2*p - 13), write("b063913.txt", n++, " ", p); if (n==1000, break)) ) } \\ Harry J. Smith, Sep 02 2009
(Magma) [n: n in [6..2000] | IsPrime(n) and IsPrime(2*n-13)]; // Vincenzo Librandi, Feb 02 2014
CROSSREFS
Sequence in context: A280997 A185006 A285887 * A119705 A343895 A343894
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Aug 31 2001
STATUS
approved