OFFSET
1,15
LINKS
FORMULA
a(1) = 1, and for n > 1, a(n) = -Sum_{d|n, d<n} A351084(n/d) * a(d).
PROG
(PARI)
A328572(n) = { my(m=1, p=2); while(n, if(n%p, m *= p^((n%p)-1)); n = n\p; p = nextprime(1+p)); (m); };
memoA354824 = Map();
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Jun 09 2022
STATUS
approved