A269868 Lexicographically earliest sequence of distinct positive integers such that all values of (a(n) XOR n) are distinct.

1, 3, 4, 2, 6, 8, 5, 7, 12, 14, 16, 17, 18, 20, 19, 9, 15, 10, 24, 25, 28, 26, 29, 11, 13, 32, 34, 33, 21, 37, 35, 22, 30, 23, 27, 49, 50, 48, 53, 31, 56, 58, 64, 65, 66, 68, 67, 69, 70, 72, 71, 73, 74, 77, 75, 78, 80, 82, 85, 76, 79, 88, 90, 36, 38, 51, 59, 39, 54, 63, 57, 40

Offset

1,2

Links

Ivan Neretin, Table of n, a(n) for n = 1..10000

Mathematica

a = used = {}; Do[k = 1; While[MemberQ[a, k] || MemberQ[used, x = BitXor[k, n]], k++]; AppendTo[a, k]; AppendTo[used, x], {n, 72}]; a

Crossrefs

Cf. A235262

Sequence in context: A143052 A297104 A243256 * A344968 A324340 A046692

Adjacent sequences: A269865 A269866 A269867 * A269869 A269870 A269871

Keyword

nonn

Author

Ivan Neretin, Mar 06 2016

Status

approved