Plot[E^ProductLog[t],{t,1,100}]