OFFSET
1,24
LINKS
FORMULA
PROG
(PARI)
A332823(n) = { my(f = factor(n), u=(sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2)%3); if(2==u, -1, u); };
memoA355685 = Map();
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Jul 14 2022
STATUS
approved