Thanks Jim and Daniel, having a couple of options is great as I fine tune the software.
For symbolic results evaluated at specific points, sometimes a limit is required.
In[803]:= Limit[Sum[x^-k, {k, 1, n}], x -> 1] Out[803]= n
Are you wanting Mathematica to return something like
Piecewise[{{(x^-n (-1 + x^n))/(-1 + x), x != 1}, {n, x == 1}}]
