同构数用伪代码怎么写？

同构数用伪代码怎么写？

for(i=1;i<10001;i++)
{a=i的所有真因子和;
if(a的所有真因子和==i)
输出i的值;
}

计算正整数n的所有真因子和的函数
s=1;
for(i=2;i<=n/2;i++)
if(n%i==0)
s+=i;
返回s的值2019-07-21