limit[ sum[(n+1-k)/k!,[k,1,n]]/n, n->inf]