A279353 -id:A279353 - cp's OEIS frontend

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

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, 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, 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

Offset: 0

Antti Karttunen, Mar 15 2017

nonn

Antti Karttunen, Table of n, a(n) for n = 0..8191

Cf. A001511, A003987, A005187, A279353.

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 *)

(define (A279357 n) (A003987bi (A005187 (+ 1 n)) (A005187 n))) ;; Here A003987bi implements a bitwise-XOR (A003987).

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

A279340 First differences of A055938.

Original entry on oeis.org

3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3

Offset: 1

Antti Karttunen, Mar 15 2017

nonn

Antti Karttunen, Table of n, a(n) for n = 1..8191

Cf. A007814, A055938, A079559, A279353.

Differences@ Complement[Range@ Last@ #, #] &@ Table[IntegerExponent[(2 n)!, 2], {n, 0, 120}] (* Michael De Vlieger, Mar 15 2017, after Jean-François Alcover at A055938 *)

(define (A279340 n) (- (A055938 (+ 1 n)) (A055938 n)))

a(n) = A055938(1+n) - A055938(n).

cp's OEIS Frontend

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Scheme

Formula