OFFSET
0,3
MAPLE
MATHEMATICA
Select[Table[2n-DivisorSigma[1, n], {n, 80}], #>=0&] (* Harvey P. Dale, Jun 01 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved