OFFSET
1,1
COMMENTS
Note that pi(p) are all even, except for the first term. Differs from A101324.
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
fQ[p_] := PrimeQ[p - PrimePi[p]]; Select[ Prime@ Range@ 400, fQ] (* Robert G. Wilson v, Dec 19 2014 *)
PROG
(PARI) is(n)=isprime(n) && isprime(n-primepi(n)) \\ Charles R Greathouse IV, Sep 16 2013
(PARI) v=primes(10^4); for(i=1, #v, if(isprime(v[i]-i), print1(v[i]", "))) \\ Charles R Greathouse IV, Sep 16 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Sep 16 2013
STATUS
approved