OFFSET
1,5
LINKS
Michel Marcus, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory): A071168:=n->ithprime(n) mod phi(n): seq(A071168(n), n=1..100); # Wesley Ivan Hurt, Feb 11 2017
MATHEMATICA
Table[Mod[Prime[w], EulerPhi[w]], {w, 1, 128}]
PROG
(PARI) a(n) = prime(n) % eulerphi(n); \\ Michel Marcus, Feb 12 2017
CROSSREFS
KEYWORD
AUTHOR
Labos Elemer, May 15 2002
STATUS
approved