Sum[i*x^i, {i, 1, n}] - Sum[Sum[x^i, {i, j, n}], {j, 1, n}]