This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A279353 #8 Mar 15 2017 20:28:36 %S A279353 7,3,15,5,1,3,31,5,1,13,3,7,1,3,63,5,1,13,3,7,1,29,3,7,3,13,1,7,1,3, %T A279353 127,5,1,13,3,7,1,29,3,7,3,13,1,7,1,61,3,7,3,13,1,7,3,29,1,5,15,3,1,7, %U A279353 1,3,255,5,1,13,3,7,1,29,3,7,3,13,1,7,1,61,3,7,3,13,1,7,3,29,1,5,15,3,1,7,1,125,3,7,3,13,1,7,3,29,1,5,15 %N A279353 a(n) = A055938(n+1) XOR A055938(n). %H A279353 Antti Karttunen, <a href="/A279353/b279353.txt">Table of n, a(n) for n = 1..8191</a> %F A279353 a(n) = A055938(n+1) XOR A055938(n). %t A279353 Function[t, BitXor @@ # & /@ Transpose@ {Rest@ t, Most@ t}]@ Complement[Range@ Last@ #, #] &@ Table[IntegerExponent[(2 n)!, 2], {n, 0, 112}] (* _Michael De Vlieger_, Mar 15 2017, after _Jean-François Alcover_ at A055938 *) %o A279353 (Scheme) (define (A279353 n) (A003987bi (A055938 (+ 1 n)) (A055938 n))) ;; Here A003987bi implements a bitwise-XOR (A003987). %Y A279353 Cf. A003987, A055938, A279340, A279357. %K A279353 nonn %O A279353 1,1 %A A279353 _Antti Karttunen_, Mar 15 2017