DiscretePlot[ {n^(Log[n]), Log[n]^n}, {n,1,20} ]