OFFSET
1,2
LINKS
FORMULA
a(n) = n - A318458(n).
MATHEMATICA
Array[# - BitAnd[#, DivisorSigma[1, #] - #] &, 100] (* Paolo Xausa, Mar 12 2024 *)
PROG
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Antti Karttunen, Mar 14 2019
STATUS
approved