OFFSET
1,1
LINKS
MATHEMATICA
Table[BitXor[2n, DivisorSigma[1, n]], {n, 80}] (* Harvey P. Dale, Oct 30 2022 *)
PROG
(PARI) A318467(n) = bitxor(2*n, sigma(n));
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Aug 26 2018
STATUS
approved