OFFSET
1,1
COMMENTS
EXAMPLE
As sigma(31) = 1+31 = 32 and antisigma(9) = 1+2+4+5+6+7+8 = 32, then 32 is a term.
MATHEMATICA
m = 10^4; r = Range[m]; s = DivisorSigma[1, r]; as = r*(r + 1)/2 - s; Select[Intersection[s, as], # <= m &] (* Amiram Eldar, Apr 05 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Bernard Schott, Apr 04 2022
EXTENSIONS
More terms from Amiram Eldar, Apr 05 2022
STATUS
approved