%I #14 Jun 01 2024 12:04:38
%S 0,1,-1,-1,0,0,0,0,1,1,0,1,0,1,-1,1,0,-1,0,-1,-1,1,0,-1,0,1,0,-1,0,0,
%T 0,-1,-1,1,0,0,0,1,-1,0,0,0,0,-1,1,1,0,0,0,1,-1,-1,0,1,0,0,-1,1,0,1,0,
%U 1,1,0,0,0,0,-1,-1,1,0,1,0,1,-1,-1,0,0,0,1,-1,1,0,1,0,1,-1,0,0,-1,0,-1,-1,1,0,1,0,1,1,-1,0,0,0,0,-1
%N a(n) is -1, 0, or 1 such that a(n) == A276085(n) (mod 3), where A276085 is the primorial base log-function.
%C Completely additive modulo 3.
%C a(n) is -1, 0, or 1 such that a(n) == A007814(n)-A007949(n) (mod 3). - _Antti Karttunen_, Jun 01 2024
%H Antti Karttunen, <a href="/A373153/b373153.txt">Table of n, a(n) for n = 1..65537</a>
%H <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>
%o (PARI)
%o A002110(n) = prod(i=1,n,prime(i));
%o A373153(n) = { my(f = factor(n),u); u=sum(k=1, #f~, f[k, 2]*A002110(primepi(f[k, 1])-1))%3; if(2==u,-1,u); };
%o (PARI) A373153(n) = { my(u=(valuation(n,2)-valuation(n,3))%3); if(2==u,-1,u); }; \\ _Antti Karttunen_, Jun 01 2024
%Y Cf. A002110, A007814, A007949, A276085.
%Y Cf. A339746 (positions of 0's), A373261 (of +1's), A373262 (of -1's).
%Y Cf. also A332814, A332823, A373253.
%K sign
%O 1
%A _Antti Karttunen_, May 27 2024