Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #8 Mar 15 2017 20:28:43
%S 1,2,7,3,15,2,1,4,31,2,1,5,1,14,3,5,63,2,1,5,1,14,3,4,1,30,3,7,3,14,1,
%T 6,127,2,1,5,1,14,3,4,1,30,3,7,3,14,1,7,1,62,3,7,3,14,1,4,3,30,1,5,1,
%U 2,15,7,255,2,1,5,1,14,3,4,1,30,3,7,3,14,1,7,1,62,3,7,3,14,1,4,3,30,1,5,1,2,15,6,1,126,3,7,3,14,1,4,3,30
%N a(n) = A005187(n) XOR A005187(n+1).
%H Antti Karttunen, <a href="/A279357/b279357.txt">Table of n, a(n) for n = 0..8191</a>
%F a(n) = A005187(n) XOR A005187(n+1).
%t Function[t, BitXor @@ # & /@ Transpose@ {Most@ t, Rest@ t}]@ Table[2 n - DigitCount[2 n, 2, 1], {n, 0, 106}] (* _Michael De Vlieger_, Mar 15 2017, after _Harvey P. Dale_ at A005187 *)
%o (Scheme) (define (A279357 n) (A003987bi (A005187 (+ 1 n)) (A005187 n))) ;; Here A003987bi implements a bitwise-XOR (A003987).
%Y Cf. A001511, A003987, A005187, A279353.
%K nonn
%O 0,2
%A _Antti Karttunen_, Mar 15 2017