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