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

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

Formula

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

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 *)

Prog

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

Crossrefs

Cf. A000040, A014689, A065311.

Sequence in context: A089541 A065843 A111264 * A152446 A265789 A055937

Adjacent sequences: A065991 A065992 A065993 * A065995 A065996 A065997

Keyword

nonn,easy

Author

Reinhard Zumkeller, Dec 10 2001

Status

approved