A178733 a(n) = n XOR 7n, where XOR is bitwise XOR.

0, 6, 12, 22, 24, 38, 44, 54, 48, 54, 76, 70, 88, 86, 108, 102, 96, 102, 108, 150, 152, 134, 140, 182, 176, 182, 172, 166, 216, 214, 204, 198, 192, 198, 204, 214, 216, 294, 300, 310, 304, 310, 268, 262, 280, 278, 364, 358, 352, 358, 364, 342, 344, 326, 332, 438

Offset: 0

Author

Dmitry Kamenetsky, Jun 08 2010

Keywords

• nonn

Crossrefs

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

Programs

Mathematica

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

Extensions

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