%I #9 May 05 2022 10:48:38
%S 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,
%T 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,
%U 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
%N Even bisection of A353640.
%H Antti Karttunen, <a href="/A353642/b353642.txt">Table of n, a(n) for n = 0..65537</a>
%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%F a(n) = A353640(2*n) = A010873(A342002(2*n)).
%F For all n >= 0, A000035(a(n)) = A000035(n). [Preserves parity]
%o (PARI)
%o 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); };
%o A353642(n) = A353640(n+n);
%Y Cf. A000035, A010873, A342002, A353640, A353641.
%Y Cf. also A353632.
%K nonn,base
%O 0,3
%A _Antti Karttunen_, May 01 2022
|