Table[{n,FindRoot[1/2 HarmonicNumber[1/2+x]+Log[2]==n,{x, 0}]},{n,1,20}]