DiscretePlot[ n^n/(n! E^n), {n, 1, 100}]