table[lim[D[(e^(p e^-w)),{w,n-1}],w->0],{n,1,12}]