A178732 a(n) = n XOR 6n, where XOR is bitwise XOR.

0, 7, 14, 17, 28, 27, 34, 45, 56, 63, 54, 73, 68, 67, 90, 85, 112, 119, 126, 97, 108, 107, 146, 157, 136, 143, 134, 185, 180, 179, 170, 165, 224, 231, 238, 241, 252, 251, 194, 205, 216, 223, 214, 297, 292, 291, 314, 309, 272, 279, 286, 257, 268, 267, 370, 381

Offset: 0

Author

Dmitry Kamenetsky, Jun 08 2010

Keywords

• nonn

Crossrefs

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

Programs

Mathematica

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

Extensions

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