|
0, 1, -1, 0, 1, -1, -1, 1, 0, 0, 1, -1, -1, -1, 1, 0, 1, 1, -1, 1, 0, 0, 1, -1, 0, -1, -1, -1, -1, 0, 1, 1, 1, 0, -1, 0, -1, -1, 0, 0, 1, 1, -1, 1, 1, 0, 1, -1, 0, 1, 1, -1, -1, -1, 0, -1, 0, -1, 1, 1, -1, 0, -1, 0, -1, 0, 1, 1, 1, -1, -1, 1, 1, -1, -1, -1, 1, 1, -1, 1, 0, 0, 1, 0, 0, -1, 0, 0, -1, 0, 0, 1, 1, 0, -1, -1, 1, 1, 1, 0, -1, 0, 1, -1, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1
|
|
LINKS
|
|
|
FORMULA
|
a(2^n) = A000035(n), for all n >= 0.
a(n^2) = 0, for all n >= 1.
a(2*n) = ((2-a(n)) mod 3) - 1. - Peter Munn, Aug 28 2021
|
|
PROG
|
(PARI)
A156552(n) = {my(f = factor(n), p2 = 1, res = 0); for(i = 1, #f~, p = 1 << (primepi(f[i, 1]) - 1); res += (p * p2 * (2^(f[i, 2]) - 1)); p2 <<= f[i, 2]); res}; \\ From A156552
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|