R语言入门的一些解决不了的问题

问题遇到的现象和发生背景 ：写函数判断是否是完美数想到方法了，但10000以内的求和尝试很多次还是错误

我的解答思路和尝试过的方法：if(x%%i==0)
sum=sum+i
i=i+1
if(sum==x)
x=x+1
print(x)但是算不出来