OFFSET
1,1
FORMULA
MAPLE
MATHEMATICA
Table[DivisorSigma[1, Prime[n]^n] - EulerPhi[Prime[n]^n], {n, 20}]
PROG
(PARI) a(n) = sigma(prime(n)^n) - eulerphi(prime(n)^n); \\ Altug Alkan, Apr 08 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wesley Ivan Hurt, Apr 07 2016
STATUS
approved