%I #8 May 05 2022 11:06:11
%S 1,1,3,3,3,1,1,1,3,3,3,1,1,1,3,1,1,3,3,3,1,1,1,3,3,3,1,1,1,3,3,3,1,1,
%T 1,3,3,3,1,1,1,3,3,3,1,1,1,3,3,3,1,1,1,3,3,3,1,1,1,3,3,3,1,1,1,3,3,3,
%U 1,1,1,3,3,3,1,1,1,3,3,3,1,1,1,3,3,3,1,1,1,3,3,3,1,1,1,3,3,3,1,1,1,3,3,3,1,1
%N Odd bisection of A353640.
%H Antti Karttunen, <a href="/A353641/b353641.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+1) = A010873(A342002(2*n+1)).
%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 A353641(n) = A353640(n+n+1);
%Y Cf. A010873, A342002, A353640, A353642.
%Y Cf. also A353631.
%K nonn,base
%O 0,3
%A _Antti Karttunen_, May 01 2022
|