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