##[QBIC](https://drive.google.com/drive/folders/0B0R1Jgqp8Gg4cVJCZkRkdEthZDQ), 13 bytes [:|c=c+1/a]?c Explanation [ | FOR a = 1 to : the input n c=c+ Add to c (starts off as 0) 1/a the reciprocal of the loop iterator ] NEXT ?c PRINT c