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
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Oct 08 2002
STATUS
approved