A065994 a(n) = prime(prime(n) - n).

2, 2, 3, 5, 13, 17, 29, 31, 43, 67, 71, 97, 107, 109, 131, 157, 181, 191, 223, 233, 239, 269, 281, 313, 359, 379, 383, 401, 409, 431, 503, 523, 569, 571, 619, 631, 659, 691, 719, 751, 787, 797, 857, 859, 881, 883, 971, 1039, 1061, 1063, 1091, 1117, 1123

Offset: 1

Author

Reinhard Zumkeller, Dec 10 2001

Keywords

• nonn
• easy

Comments

a(n) = A065311(n-2) for 3 < n <= 10000. - Georg Fischer, Oct 19 2018

Links

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

Crossrefs

Cf. A000040, A014689, A065311.

Programs

Maple

A065994:=n->ithprime(ithprime(n)-n): seq(A065994(n), n=1..100); # Wesley Ivan Hurt, Jan 21 2017

Mathematica

Table[Prime[Prime[n]-n],{n,60}] (* Harvey P. Dale, Sep 04 2011 *)

PARI

{ for (n=1, 1000, a=prime(prime(n) - n); write("b065994.txt", n, " ", a) ) } \\ Harry J. Smith, Nov 06 2009

Formula

a(n) = A000040(A014689(n)). - Reinhard Zumkeller, Aug 06 2003