OFFSET
0,4
COMMENTS
LINKS
Rémy Sigrist, Table of n, a(n) for n = 0..9851
EXAMPLE
Table begins:
0;
1;
0, 2;
3;
0, 2, 4;
1, 5;
0, 4, 6;
7;
0, 4, 6, 8;
1, 5, 9;
0, 2, 4, 8, 10;
3, 11;
0, 2, 8, 10, 12;
1, 9, 13;
0, 8, 12, 14;
...
MAPLE
T:= n-> sort([{seq(Bits[Xor](n-k, k), k=0..n)}[]])[]:
seq(T(n), n=0..30); # Alois P. Heinz, Oct 20 2019
MATHEMATICA
Union /@ Table[BitXor[n - k, k], {n, 0, 22}, {k, 0, n}] // Flatten (* George Beck, Jun 09 2023 *)
PROG
(PARI) row(n) = Set(apply(k -> bitxor(n-k, k), [0..n]))
CROSSREFS
KEYWORD
AUTHOR
Rémy Sigrist, Oct 20 2019
STATUS
approved