A064270 Primes of the form prime(k) - k; or primes arising in A014689.

2, 3, 7, 11, 19, 29, 37, 43, 79, 83, 139, 149, 179, 197, 251, 269, 307, 349, 373, 397, 491, 683, 709, 733, 829, 859, 883, 971, 997, 1093, 1153, 1289, 1429, 1433, 1453, 1511, 1531, 1549, 1637, 1699, 1721, 1931, 1993, 1999, 2029, 2053, 2063, 2161, 2203

Offset: 1

Author

Jason Earls, Sep 23 2001

Keywords

• easy
• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A064269.

Programs

Mathematica

t={}; Do[If[PrimeQ[q=Prime[n]-n], AppendTo[t,q]], {n,378}]; t (* Jayanta Basu, May 14 2013 *)

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