sum[log(k)/k, k=1 to n]