A353514 - OEIS

A353514

a(n) = 1 if A328572(2*n) is of the form 4m+3, and 0 otherwise.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

COMMENTS

Even bisection of A353513. Also the odd bisection. That both bisections are equal follows from the identity A276086(2n+1) = 2 * A276086(2n) which further implies that A328572(2n+1) = A328572(2n).

LINKS

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

Index entries for characteristic functions

Index entries for sequences related to primorial base

FORMULA

a(n) = A353513(2*n) = A353513(2*n + 1).

PROG

(PARI)

A328572(n) = { my(m=1, p=2); while(n, if(n%p, m *= p^((n%p)-1)); n = n\p; p = nextprime(1+p)); (m); };

A353514(n) = (3==(A328572(n+n)%4));

CROSSREFS

Cf. A276086, A328572, A353513.