Plot[HarmonicNumber[z], {z, 0, 50}]