若一个数等于它的各个真因子之和，则称该数为完数，如6=1+2+3，所以6是完数。求[1,500]之间的全部完数

若一个数等于它的各个真因子之和，则称该数为完数，如6=1+2+3，所以6是完数。求[1,500]之间的全部完数 .matlab中如何实现？

>> for m=1:500
s=0;
for k=1:m/2
if rem(m,k)==0
s=s+k;
end
end
if m==s
disp(m);
end
end
6

28

496

for m=1:500
sum=0;
for n=1:m/2
if rem(m,n)==0
sum=sum+n;
end
end
if sum==m
for n=1:m/2
if rem(m,n)==0
sum=sum+n;
disp(['约数：',num2str(n)]);
end
end
disp(['结果************',num2str(m)]);
end
end

for m=1:500
sum=0;
for n=1:m/2
if rem(m,n)==0
sum=sum+m;
end
end
if sum==m
disp(m)
end
end