Plot[frac(n HarmonicNumber(n, 5)),{n,10,20}]