A076241 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

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

FORMULA

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

MATHEMATICA

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

PROG

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

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