login
A319690
Fully multiplicative with a(p^e) = (p mod 3)^e.
6
1, 2, 0, 4, 2, 0, 1, 8, 0, 4, 2, 0, 1, 2, 0, 16, 2, 0, 1, 8, 0, 4, 2, 0, 4, 2, 0, 4, 2, 0, 1, 32, 0, 4, 2, 0, 1, 2, 0, 16, 2, 0, 1, 8, 0, 4, 2, 0, 1, 8, 0, 4, 2, 0, 4, 8, 0, 4, 2, 0, 1, 2, 0, 64, 2, 0, 1, 8, 0, 4, 2, 0, 1, 2, 0, 4, 2, 0, 1, 32, 0, 4, 2, 0, 4, 2, 0, 16, 2, 0, 1, 8, 0, 4, 2, 0, 1, 2, 0, 16, 2, 0, 1, 8, 0, 4, 2, 0, 1, 8, 0, 16, 2, 0, 4, 8, 0, 4
OFFSET
1,2
LINKS
PROG
(PARI) A319690(n) = { my(f=factor(n)); prod(i=1, #f~, (f[i, 1]%3)^f[i, 2]); };
CROSSREFS
Sequence in context: A226240 A109468 A331032 * A341419 A366503 A185879
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Oct 04 2018
STATUS
approved