Plot[86021/27720 - HarmonicNumber[9 - x],{x,1,6}]