1,5

Michel Marcus, Table of n, a(n) for n = 1..10000

a(n) = prime(n) mod phi(n) = A000040(n) mod A000010(n).

with(numtheory): A071168:=n->ithprime(n) mod phi(n): seq(A071168(n), n=1..100); # Wesley Ivan Hurt, Feb 11 2017

Table[Mod[Prime[w], EulerPhi[w]], {w, 1, 128}]

(PARI) a(n) = prime(n) % eulerphi(n); \\ Michel Marcus, Feb 12 2017

Cf. A000040, A000010, A066936, A071169.

Sequence in context: A239626 A076363 A143865 * A091926 A325685 A109606

Adjacent sequences: A071165 A071166 A071167 * A071169 A071170 A071171

nonn,easy,look

Labos Elemer, May 15 2002

approved