OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
MATHEMATICA
a[1] = 2; a[n_] := Times @@ ((First[#] - 1)^Last[#] & /@ FactorInteger[n]) + MoebiusMu[n] * EulerPhi[n]; Array[a, 60] (* Amiram Eldar, Dec 17 2018 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 17 2018
STATUS
approved