Plot[n n! Log[n!], {n, 1, 15}]