A341346 a(n) = A048673(2n-1) mod 3.

1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0

Offset

1

Comments

Characteristic function of A341349.

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) = A341345(2n-1) = A010872(A254049(n)) = A010872(A048673(2n-1)).

a(n) = [A292251(2n-1) == 0], where [ ] is the Iverson bracket.

Prog

(PARI)
A003961(n) = { my(f=factor(n)); for (i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); }; \\ From A003961
A341346(n) = (((A003961(n+n-1)+1)/2)%3);

Crossrefs

Cf. A003961, A010872, A048673, A254049, A292251, A341347.

Bisection of A341345.

Cf. A341348 (runlengths), A341349 (positions of ones), A341350 (of zeros).

Sequence in context: A106346 A296212 A189921 * A167371 A127241 A087748

Adjacent sequences: A341343 A341344 A341345 * A341347 A341348 A341349

Keyword

nonn

Author

Antti Karttunen, Feb 09 2021

Status

approved