Limit[D[Power[(w-1)/(Power[e,(1/w-1)Power[e,1/w-1]]-1),3],{w,2}],w->1]