OFFSET
1,2
LINKS
MATHEMATICA
A379224[n_] := BitXor[# - 1, 2*# - 1] & [DivisorSigma[1, (2*n - 1)^2]];
Array[A379224, 50] (* Paolo Xausa, Jan 23 2025 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 21 2024
STATUS
approved