OFFSET
1,4
COMMENTS
Dirichlet inverse b(n) is multiplicative with b(p^e) = 0 if e = 1, -2 if e mod 3 = 2, and 1 otherwise.
LINKS
Aloe Poliszuk, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[p_, e_] := (3 + (-1)^e*(2*e + 1))/4; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Nov 20 2025 *)
PROG
(PARI) a(n) = factorback(apply(e -> (3+(-1)^e*(2*e+1))/4, factor(n)[, 2]))
CROSSREFS
KEYWORD
sign,easy,mult
AUTHOR
Werner Schulte, Nov 20 2025
STATUS
approved
