OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..5000
FORMULA
a(n) = 2 * A184617(n). - Alois P. Heinz, Jul 21 2017
MATHEMATICA
f[n_] := BitXor[n, 3 n]; Array[f, 70, 0] (* Robert G. Wilson v, Jun 09 2010 *)
PROG
(PARI) a(n) = bitxor(n, 3*n); \\ Michel Marcus, Jul 11 2017
(Magma) [BitwiseXor(n, 3*n): n in [0..80]]; // Vincenzo Librandi, Jul 11 2017
(Python)
def A178729(n): return n^ 3*n # Chai Wah Wu, Jun 29 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Dmitry Kamenetsky, Jun 08 2010
EXTENSIONS
a(30) onwards from Robert G. Wilson v, Jun 09 2010
STATUS
approved