login
A353307
a(n) = 1 if A156552(n) == 1 (mod 3), otherwise 0.
2
0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0
OFFSET
1
FORMULA
a(n) = A353269(2*n).
a(n) = 1 if A156552(2*n) is a multiple of 3, otherwise 0.
a(n) = 1 iff A329903(n) = 1, or equally, iff A332814(n) = 1.
a(n) = 1 iff A329903(4*n) = 1.
For n > 1, a(n) = 1 iff A341353(2*n) > 0.
a(A329603(n)) = 1 for all n >= 1.
PROG
(PARI)
A156552(n) = { my(f = factor(n), p, 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 };
A353307(n) = (!(A156552(2*n)%3));
CROSSREFS
Characteristic function of A329604.
Bisection of A353269.
Sequence in context: A118605 A175253 A163584 * A286655 A272170 A126565
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 15 2022
STATUS
approved