OFFSET
0,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..8191
Joerg Arndt, Matters Computational (The Fxtbook), section 1.19 "Invertible transforms on words", pp. 49--55 [Cf. especially the identity 1.19-9d: gB = Bg^{-1} given on page 53].
FORMULA
PROG
(Scheme)
(Python)
def a065621(n): return n^(2*(n - (n&-n)))
def a048724(n): return n^(2*n)
def a003188(n): return n^(n>>1)
def a193231(n):
if n<2: return n
if n%2==0: return a048724(a193231(n/2))
else: return a065621(1 + a193231((n - 1)/2))
def a(n): return n if n<2 else a003188(a193231(n)) # Indranil Ghosh, Jun 05 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 28 2013
STATUS
approved