R语言计算，求代码

Question

问题在图上，求大佬救命

Answer 1

代码如下：

N=c(1,2,4,8,16)*500

ln=log(N)+0.6

frac=c(1:8000);

frac=1/frac;                                                  

s=N;

for(i in 1:length(s)){

s[i]=sum(frac[1:s[i]]);

}

s

ln

调试结果