A169811 a(n) = n XOR n*(n+1)/2.

0, 0, 1, 5, 14, 10, 19, 27, 44, 36, 61, 73, 66, 86, 103, 119, 152, 136, 185, 173, 198, 242, 235, 259, 308, 348, 325, 353, 394, 430, 463, 495, 560, 528, 625, 597, 702, 666, 707, 811, 796, 884, 941, 921, 1010, 1062, 1047, 1095, 1192, 1272, 1225, 1309, 1366, 1442, 1531

Offset: 0

Author

N. J. A. Sloane, May 28 2010

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A000217, A070883, A169810.

Programs

Mathematica

Table[BitXor[n (n + 1)/2, n], {n, 0, 100}] (* Vladimir Joseph Stephan Orlovsky, Jul 17 2011 *)

PARI

a(n)=bitxor(n, n*(n+1)/2); \\ Michel Marcus, Jul 08 2019