OFFSET
1,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
MATHEMATICA
Table[DivisorSum[n, MoebiusMu[n/#] FromDigits[IntegerDigits[#, 3] /. 2 -> 0, 3] &], {n, 84}] (* Michael De Vlieger, Mar 17 2018 *)
PROG
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Mar 14 2018
STATUS
approved