OFFSET
1,3
LINKS
MATHEMATICA
Array[BitAnd[2*#, DivisorSigma[1, #]]/2 &, 100] (* Paolo Xausa, Mar 11 2024 *)
PROG
(PARI) A324659(n) = (bitand(2*n, sigma(n))/2);
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Antti Karttunen, Mar 14 2019
STATUS
approved