login
A359605
a(n) = 1 if A355690(n) is positive (+1), otherwise 0.
4
1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0
OFFSET
1
FORMULA
a(n) = A355690(n) + A359606(n)
a(n) = A359590(n) - A359606(n).
PROG
(PARI)
A010892(n) = ([1, 1, 0, -1, -1, 0][n%6 + 1]);
A355690(n) = { my(f = factor(n)); prod(k=1, #f~, if(2==f[k, 1], A010892(1+f[k, 2]), -(1==f[k, 2]))); };
A359605(n) = (A355690(n)>0);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Antti Karttunen, Jan 12 2023
STATUS
approved