Partial[t Power[e,Divide[k,t]],t]