login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

a(n) = A005187(n) XOR A005187(n+1).
5

%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