A076241 Remainder when 2nd order prime pp(n)=A006450(n) is divided by n.

0, 1, 2, 1, 1, 5, 3, 3, 2, 9, 6, 1, 10, 9, 1, 1, 5, 13, 8, 13, 10, 5, 17, 5, 9, 1, 23, 27, 19, 17, 27, 3, 14, 15, 19, 13, 31, 17, 16, 31, 38, 37, 35, 27, 31, 21, 28, 17, 12, 47, 43, 43, 39, 31, 26, 45, 13, 1, 17, 23, 17, 53, 11, 15, 1, 53, 10, 25, 64, 41, 38, 41, 68, 33, 59, 63, 65

Offset: 1

Author

Labos Elemer, Oct 08 2002

Keywords

• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..5000

Crossrefs

Cf. A006450, A038580, A049090, A049203, A049202, A057809, A076240-A076243.

Programs

Magma

[NthPrime(NthPrime(n)) mod(n): n in [1..100]]; // Vincenzo Librandi, Jul 10 2017

Mathematica

Table[Mod[Prime[Prime[n]], n], {n, 100}] (* Vincenzo Librandi, Jul 10 2017 *)

PARI

a(n) = prime(prime(n)) % n; \\ Michel Marcus, Jul 09 2017

Formula

a(n) = A006450(n) mod n.