OFFSET
1,4
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537
Wikipedia, Dirichlet convolution
MATHEMATICA
Table[DivisorSum[n, PrimeNu[n/#]*Sum[DirichletConvolve[j, MoebiusMu[j]^2, j, #/d] EulerPhi[d], {d, Divisors[#]}]&], {n, 80}] (* Giorgos Kalogeropoulos, Oct 28 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 23 2021
STATUS
approved