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,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

Cf. A064269.

Sequence in context: A129386 A278699 A238569 * A235633 A232232 A232233

Adjacent sequences: A064267 A064268 A064269 * A064271 A064272 A064273

Keyword

easy,nonn

Author

Jason Earls, Sep 23 2001

Status

approved