OFFSET
1,1
EXAMPLE
30 is in the sequence since it is the sum of the two distinct abundant numbers 12 and 18.
MATHEMATICA
Table[If[Sum[(1 - Sign[Floor[(2 (n - i))/DivisorSigma[1, n - i]]])*(1 - Sign[Floor[(2 i)/DivisorSigma[1, i]]]), {i, Floor[(n - 1)/2]}] > 0, n, {}], {n, 200}] // Flatten
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Oct 01 2020
STATUS
approved