A065996 a(n) = prime(prime(n) mod n).

2, 3, 5, 2, 2, 5, 5, 11, 23, 23, 2, 3, 2, 3, 11, 19, 17, 29, 31, 29, 41, 43, 59, 79, 83, 79, 83, 79, 83, 5, 5, 11, 5, 23, 17, 23, 31, 31, 41, 47, 41, 67, 59, 59, 47, 83, 127, 127, 109, 109, 127, 109, 149, 157, 167, 179, 167, 179, 179, 167, 197, 257, 257, 241, 241, 307, 313, 3

Offset

2,1

Links

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

Mathematica

Table[Prime[Mod[Prime[n], n]], {n, 2, 70}] (* Harvey P. Dale, Jan 18 2020 *)

Prog

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

Crossrefs

Cf. A000040 (primes).

Sequence in context: A365424 A060441 A255913 * A133906 A317358 A133907

Adjacent sequences: A065993 A065994 A065995 * A065997 A065998 A065999

Keyword

nonn

Author

Reinhard Zumkeller, Dec 10 2001

Status

approved