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