A353642 Even bisection of A353640.

0, 1, 2, 1, 0, 1, 2, 3, 0, 3, 2, 3, 0, 1, 2, 1, 2, 1, 0, 3, 2, 3, 0, 3, 2, 1, 0, 1, 2, 1, 2, 1, 0, 1, 2, 1, 0, 3, 2, 3, 0, 3, 2, 1, 0, 3, 0, 3, 2, 1, 0, 1, 2, 1, 0, 3, 2, 3, 0, 3, 0, 3, 2, 3, 0, 3, 2, 1, 0, 1, 2, 1, 0, 3, 2, 1, 2, 1, 0, 3, 2, 3, 0, 3, 2, 1, 0, 1, 2, 1, 2, 1, 0, 1, 2, 1, 0, 3, 2, 3, 0, 3, 2, 1, 0, 1

Offset: 0

Author

Antti Karttunen, May 01 2022

Keywords

• nonn
• base

Links

• Antti Karttunen, Table of n, a(n) for n = 0..65537
• Index entries for sequences related to primorial base

Crossrefs

Cf. A000035, A010873, A342002, A353640, A353641.

Cf. also A353632.

Programs

PARI

A353640(n) = { my(s=0, m=1, p=2, e); while(n, e = (n%p); m *= p^(e>0); s += (e/p); n = n\p; p = nextprime(1+p)); ((s*m)%4); };
A353642(n) = A353640(n+n);

Formula

a(n) = A353640(2*n) = A010873(A342002(2*n)).

For all n >= 0, A000035(a(n)) = A000035(n). [Preserves parity]