A353307 a(n) = 1 if A156552(n) == 1 (mod 3), otherwise 0.

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

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for characteristic functions

Index entries for sequences computed from indices in prime factorization

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.

Cf. A156552, A329603, A329903, A332814, A341353.

Sequence in context: A118605 A175253 A163584 * A286655 A272170 A126565

Adjacent sequences: A353304 A353305 A353306 * A353308 A353309 A353310

Keyword

nonn

Author

Antti Karttunen, Apr 15 2022

Status

approved