OFFSET
1,2
FORMULA
a(prime(n)) = A104129(n). - Michel Marcus, Jun 29 2021
EXAMPLE
a(6) = Sum_{d|6} 6^phi(d) = 6^phi(1) + 6^phi(2) + 6^phi(3) + 6^phi(6) = 6^1 + 6^1 + 6^2 + 6^2 = 84.
MATHEMATICA
a[n_] := DivisorSum[n, n^EulerPhi[#] &]; Array[a, 23] (* Amiram Eldar, Jun 29 2021 *)
PROG
(PARI) a(n) = sumdiv(n, d, n^eulerphi(d)); \\ Michel Marcus, Jun 29 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Jun 28 2021
STATUS
approved