OFFSET
0,5
LINKS
MATHEMATICA
Table[If[n < 2, 0, BitXor @@ Table[Floor[#/2^m], {m, 0, Floor@ Log2@ #}] &@ Floor[n/2]], {n, 0, 85}] (* Michael De Vlieger, Sep 21 2017, after Jean-François Alcover at A006068 *)
PROG
(Python)
def A292600(n):
k, m = n>>1, n>>2
while m > 0:
k ^= m
m >>= 1
return k # Chai Wah Wu, Jun 30 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Sep 21 2017
STATUS
approved