OFFSET
0,3
LINKS
PROG
(PARI)
A006068(n)= { my(s=1, ns); while(1, ns = n >> s; if(0==ns, break()); n = bitxor(n, ns); s <<= 1; ); return (n); } \\ From A006068
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); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 14 2018
STATUS
approved