Limit[Power[(Divide[n!,Power[n,n]]),Divide[1,n]],n->∞]