A178731 a(n) = n XOR 5n, where XOR is bitwise XOR.

0, 4, 8, 12, 16, 28, 24, 36, 32, 36, 56, 60, 48, 76, 72, 68, 64, 68, 72, 76, 112, 124, 120, 100, 96, 100, 152, 156, 144, 140, 136, 132, 128, 132, 136, 140, 144, 156, 152, 228, 224, 228, 248, 252, 240, 204, 200, 196, 192, 196, 200, 204, 304, 316, 312, 292, 288, 292

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..5000

Mathematica

f[n_] := BitXor[n, 5 n]; Array[f, 60, 0] (* Robert G. Wilson v, Jun 09 2010 *)

Prog

(Magma) [BitwiseXor(n, 5*n): n in [0..70]]; // Vincenzo Librandi, Jul 11 2017
(PARI) a(n) = bitxor(n, 5*n); \\ Michel Marcus, Jul 11 2017

Crossrefs

Cf. A048724, A178729, A048725, A178732, A178733, A178734, A178735, A178736. - Robert G. Wilson v, Jun 09 2010

Sequence in context: A045783 A316712 A261650 * A334386 A071072 A175670

Adjacent sequences: A178728 A178729 A178730 * A178732 A178733 A178734

Keyword

nonn

Author

Dmitry Kamenetsky, Jun 08 2010

Extensions

a(30) onwards from Robert G. Wilson v, Jun 09 2010

Status

approved