OFFSET
0,3
MATHEMATICA
Table[(-1)^n*Sum[i*Floor[n/(n - i)], {i, Floor[n/2]}], {n, 0, 80}] (* Wesley Ivan Hurt, Nov 26 2020 *)
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Paul Curtz, Sep 24 2007
EXTENSIONS
New name and more terms from Wesley Ivan Hurt, Nov 26 2020
STATUS
approved