|
|
A065060
|
|
Primes p such that prime(p) - pi(p) is a prime.
|
|
2
|
|
|
2, 3, 7, 19, 79, 101, 113, 163, 173, 199, 223, 239, 251, 263, 311, 349, 443, 463, 577, 593, 641, 659, 743, 839, 881, 1033, 1097, 1109, 1151, 1373, 1399, 1429, 1439, 1459, 1627, 1693, 1831, 1871, 2029, 2069, 2137, 2237, 2287, 2423, 2473, 2617, 2687, 2713
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MAPLE
|
|
|
MATHEMATICA
|
Prime[ Select[ Range[500], PrimeQ[ Prime[ Prime[ # ]] - PrimePi[ Prime[ # ]]] & ]]
|
|
PROG
|
(PARI) { n=0; default(primelimit, 4294965247); for (m=1, 10^9, p=prime(m); if (isprime(prime(p) - primepi(p)), write("b065060.txt", n++, " ", p); if (n==1000, return)) ) } \\ Harry J. Smith, Oct 05 2009
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|