|
%I #5 Oct 05 2018 11:10:10
%S 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,
%T 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,
%U 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
%N Fully multiplicative with a(p^e) = (p mod 3)^e.
%H Antti Karttunen, <a href="/A319690/b319690.txt">Table of n, a(n) for n = 1..65537</a>
%o (PARI) A319690(n) = { my(f=factor(n)); prod(i=1, #f~, (f[i, 1]%3)^f[i, 2]); };
%Y Cf. A065338, A319691.
%K nonn,mult
%O 1,2
%A _Antti Karttunen_, Oct 04 2018
|
