OFFSET
1,6
LINKS
MATHEMATICA
f[p_, e_] := NextPrime[p]^e; s[1] = 1; s[n_] := (1 + Times @@ f @@@ FactorInteger[n])/2; a[n_] := DivisorSum[n, # * MoebiusMu[#] * s[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 23 2021 *)
PROG
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Nov 23 2021
STATUS
approved