|
|
A373153
|
|
a(n) is -1, 0, or 1 such that a(n) == A276085(n) (mod 3), where A276085 is the primorial base log-function.
|
|
8
|
|
|
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, 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, 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1
|
|
COMMENTS
|
Completely additive modulo 3.
|
|
LINKS
|
|
|
PROG
|
(PARI)
A002110(n) = prod(i=1, n, prime(i));
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); };
(PARI) A373153(n) = { my(u=(valuation(n, 2)-valuation(n, 3))%3); if(2==u, -1, u); }; \\ Antti Karttunen, Jun 01 2024
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|