%I #7 Nov 28 2018 20:59:01
%S 0,0,3,0,7,4,7,0,15,8,11,8,15,12,15,0,31,16,19,16,23,20,23,16,31,24,
%T 27,24,31,28,31,0,63,32,35,32,39,36,39,32,47,40,43,40,47,44,47,32,63,
%U 48,51,48,55,52,55,48,63,56,59,56,63,60,63,0,127,64,67,64,71,68,71,64,79,72,75,72,79,76,79,64,95,80,83,80,87,84,87,80
%N a(n) = A006068(A129760(A003188(n))).
%C For all n, A207901(a(n)) divides A207901(n), and similarly for A302033.
%H Antti Karttunen, <a href="/A322018/b322018.txt">Table of n, a(n) for n = 0..16383</a>
%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>
%F a(n) = A006068(A129760(A003188(n))).
%o (PARI)
%o A003188(n) = bitxor(n, n>>1);
%o A006068(n)= { my(s=1, ns); while(1, ns = n >> s; if(0==ns, break()); n = bitxor(n, ns); s <<= 1; ); return (n); } \\ After code in A006068
%o A129760(n) = bitand(n,n-1); \\ From A129760
%o A322018(n) = A006068(A129760(A003188(n)));
%Y Cf. A003188, A006068, A035327, A129760.
%Y Cf. also A207901, A302033, A322017.
%K nonn
%O 0,3
%A _Antti Karttunen_, Nov 27 2018