A014550 Binary reflected Gray code.

0, 1, 11, 10, 110, 111, 101, 100, 1100, 1101, 1111, 1110, 1010, 1011, 1001, 1000, 11000, 11001, 11011, 11010, 11110, 11111, 11101, 11100, 10100, 10101, 10111, 10110, 10010, 10011, 10001, 10000, 110000, 110001, 110011, 110010, 110110

Offset

0,3

References

Gardner, M. "The Binary Gray Code." Ch. 2 in Knotted Doughnuts and Other Mathematical Entertainments. New York: W. H. Freeman, 1986.

C. A. Pickover, The Math Book, Sterling, NY, 2009; see p. 392.

Links

Alois P. Heinz, Table of n, a(n) for n = 0..8191

Eric Weisstein's World of Mathematics, Gray Code

Wikipedia, Gray code

Maple

a:= proc(n) option remember; `if`(n<2, n,
      (b-> 10^b +a(2^(b+1)-1-n))(ilog2(n)))
    end:
seq(a(n), n=0..50);  # Alois P. Heinz, Nov 01 2008

Mathematica

a[n_] := a[n] = (b = Floor[Log[2, n]]; If[n <= 1, n, 10^b + a[2^(b + 1) - 1 - n]]); Table[a[n], {n, 0, 36}] (* Jean-François Alcover, Oct 11 2012, after Alois P. Heinz *)

Prog

(PARI) a(n)=fromdigits(binary(bitxor(n, n>>1))) \\ Charles R Greathouse IV, Feb 06 2017

Crossrefs

Same sequence in decimal: A003188.

Sequence in context: A304749 A105028 A331560 * A367547 A070836 A063432

Adjacent sequences: A014547 A014548 A014549 * A014551 A014552 A014553

Keyword

nonn,nice,easy

Author

Eric W. Weisstein

Extensions

More terms from Larry Reeves (Larryr(AT)acm.org), Sep 05 2000

Status

approved