

A061067


mth prime prime(m) is included iff prime(m) + m is also prime.


15



2, 3, 7, 13, 61, 79, 89, 101, 131, 139, 181, 223, 317, 349, 359, 421, 479, 503, 521, 541, 557, 569, 577, 593, 619, 641, 701, 733, 827, 863, 881, 929, 1021, 1069, 1223, 1231, 1249, 1277, 1361, 1399, 1439, 1487, 1733, 1831, 1889, 1987, 2069, 2137, 2143, 2203
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,1


LINKS



FORMULA



EXAMPLE

5th term here is 61 = prime(18) and 61 + 18 = 79.


MATHEMATICA

Select[Prime[Range[400]], PrimeQ[#+PrimePi[#]]&] (* Harvey P. Dale, Oct 03 2016 *)


PROG

(PARI) { n=1; m=0; forprime (p=2, 109597, if (isprime(p + m++), write("b061067.txt", n++, " ", p)) ) } \\ Harry J. Smith, Jul 17 2009
(Magma) [NthPrime(n): n in [1..250]  IsPrime(NthPrime(n)+ n)]; // Vincenzo Librandi, Jan 19 2015


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



