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,3

Links

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

Index entries for sequences related to primorial base

Formula

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

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

Prog

(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);

Crossrefs

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

Cf. also A353632.

Sequence in context: A065364 A168318 A174203 * A308151 A114219 A119339

Adjacent sequences: A353639 A353640 A353641 * A353643 A353644 A353645

Keyword

nonn,base

Author

Antti Karttunen, May 01 2022

Status

approved