Table[floor(-n/2+goldenratio (Harmonic(n))^(-1/2)),{n,1,50}]