OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..13107
FORMULA
a(n) = (A268670(n)+1) / 2.
MATHEMATICA
f[n_] := Fold[BitXor, n, Quotient[n, 2^Range[BitLength@ n - 1]]]; g[n_] := If[OddQ@ #, n, g[#/2]] &@ f[n]; Table[(f@ g@ n + 1)/2, {n, 85}] (* Michael De Vlieger, Feb 12 2016, after Jan Mangaldan at A006068 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Feb 10 2016
STATUS
approved