OFFSET
0,3
LINKS
John Tyler Rascoe, Table of n, a(n) for n = 0..10000
MAPLE
a:= proc(n) option remember; `if`(n=0, 0,
Bits[Xor](a(n-1), n*(n+1)/2))
end:
seq(a(n), n=0..55); # Alois P. Heinz, Feb 19 2023
MATHEMATICA
Module[{nn=60, trs}, trs=Accumulate[Range[nn]]; Table[BitXor@@Take[trs, n], {n, 0, nn}]] (* Harvey P. Dale, Dec 15 2017 *)
PROG
(PARI) al(n) = local(m); vector(n, k, m=bitxor(m, k*(k+1)\2))
(Python)
from operator import xor
from functools import reduce
def A193232(n): return reduce(xor, (x*(x+1) for x in range(n+1)))//2 # Chai Wah Wu, Dec 16 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Franklin T. Adams-Watters, Jul 18 2011
STATUS
approved