OFFSET
0,10
LINKS
MATHEMATICA
PROG
(Scheme) (define (A283979 n) (/ (A003987bi n (A264977 n)) 4)) ;; Where A003987bi implements bitwise-xor (A003987).
(PARI) a(n) = if(n<2, n, if(n%2, bitxor(a((n - 1)/2), a((n + 1)/2)), 2*a(n/2)));
for(n=0, 150, print1(bitxor(n, a(n))/4, ", ")) \\ Indranil Ghosh, Mar 28 2017
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Mar 25 2017
STATUS
approved