这个问题要编程进行运算
用mathematica编程
s = 0; For[i = 100,i