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

Author

Ivan Neretin, Mar 06 2016

Keywords

• nonn

Links

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

Crossrefs

Cf. A235262

Programs

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