|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Harry J. Smith, Table of n, a(n) for n = 1..1000
|
|
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 A155560 A217734
Adjacent sequences: A063910 A063911 A063912 * A063914 A063915 A063916
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
N. J. A. Sloane, Aug 31 2001
|
|
STATUS
|
approved
|
|
|
|