sum[(-x)^k/k! sum[(k)^n/((n+1)^(-k+1) n!),{n,0,30}],{k,0,30}]