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,4

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000217, A070883, A169810.

Sequence in context: A292249 A205134 A196363 * A272970 A168213 A175485

Adjacent sequences: A169808 A169809 A169810 * A169812 A169813 A169814

Keyword

nonn

Author

N. J. A. Sloane, May 28 2010

Status

approved