OFFSET
0,2
MAPLE
a:= proc(n) option remember; `if`(n=0, 0,
Bits[Xor](a(n-1), 2^ithprime(n)-1))
end:
seq(a(n), n=0..23); # Alois P. Heinz, May 08 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zachary G. Graham, May 08 2023
STATUS
approved