OFFSET
0,3
COMMENTS
LINKS
PROG
(PARI)
A003188(n) = bitxor(n, n>>1);
A057300(n) = { my(t=1, s=0); while(n>0, if(1==(n%4), n++, if(2==(n%4), n--)); s += (n%4)*t; n >>= 2; t <<= 2); (s); };
A163356(n) = if(!n, n, my(i = (#binary(n)-1)\2, f = 4^i, d = (n\f)%4, r = (n%f)); (((((2+(i%2))^d)%5)-1)*f) + if(3==d, f-1-A163356(r), A057300(A163356(r)))); \\ Antti Karttunen, Apr 14 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 14 2018
STATUS
approved