AUTHOR
_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Jun 09 2010
_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Jun 09 2010
a(n) = n XOR floor(Log_2(n))+1, where XOR is bitwise XOR.
0, 1, 7, 6, 5, 4, 12, 13, 14, 15, 8, 9, 10, 11, 21, 20, 23, 22, 17, 16, 19, 18, 29, 28, 31, 30, 25, 24, 27, 26, 38, 39, 36, 37, 34, 35, 32, 33, 46, 47, 44, 45, 42, 43, 40, 41, 54, 55, 52, 53, 50, 51, 48, 49, 62, 63, 60, 61, 58, 59, 56, 57, 71, 70, 69, 68, 67, 66, 65, 64, 79, 78
2,3
Except for 2 & 3 which are missing, is every integer present just once?
f[n_] := BitXor[n, Floor[Log[2, n] + 1]]; t = Array[f, 75, 2];
easy,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 09 2010
approved