login
A076241
Remainder when 2nd order prime pp(n)=A006450(n) is divided by n.
3
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,3
LINKS
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
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 08 2002
STATUS
approved