OFFSET
1,3
COMMENTS
LINKS
MATHEMATICA
Map[BitXor[2*#, DivisorSigma[1, #] + 1] &, Range[100]^2] (* Paolo Xausa, Dec 18 2024 *)
PROG
(PARI) A379009(n) = bitxor(2*(n^2), 1+sigma(n^2));
CROSSREFS
KEYWORD
nonn,new
AUTHOR
Antti Karttunen, Dec 16 2024
STATUS
approved