OFFSET
1,2
MAPLE
with (numtheory): f := [seq( sigma(i+2) - sigma(i+1) - (sigma(i+1) - sigma(i)), i=1..200)];
seq(`if`(f[i] < 0, f[i], print( )), i=1..200);
MATHEMATICA
Abs[Select[Differences[DivisorSigma[1, Range[200]], 2], Negative]] (* Harvey P. Dale, Aug 13 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Asher Auel, Jan 11 2000
STATUS
approved