Plot[n HarmonicNumber[n], {n, 1, 100}]