OFFSET
1,6
COMMENTS
The peculiar look of the scatterplot is partly an artifact of the logarithmic scale. Compare also to the scatterplot of A318468.
LINKS
MATHEMATICA
Table[BitAnd[n, DivisorSigma[1, n] - n], {n, 100}] (* Vincenzo Librandi, Aug 29 2018 *)
PROG
(PARI) A318458(n) = bitand(n, sigma(n)-n);
(Magma) [SumOfDivisors(n)-BitwiseOr(n, SumOfDivisors(n)-n): n in [1..100]]; // Vincenzo Librandi, Aug 29 2018
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Aug 26 2018
STATUS
approved