Sum[x/e^x,{x,1,infinity}]