OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MATHEMATICA
t={}; Do[If[PrimeQ[q=Prime[n]-n], AppendTo[t, q]], {n, 378}]; t (* Jayanta Basu, May 14 2013 *)
PROG
(PARI) j=[]; for(n=1, 500, if(isprime(prime(n)-n), j=concat(j, prime(n)-n))); j
(PARI) { n=0; for (m=1, 10^9, if (isprime(prime(m) - m), write("b064270.txt", n++, " ", prime(m) - m); if (n==1000, break)) ) } \\ Harry J. Smith, Sep 11 2009
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Sep 23 2001
STATUS
approved