clc
temp=0;
wanshu=0;
for j=1:10000
for k=1:j-1
if mod(j,k)==0;
temp=[temp k];
end
end
if j==sum(temp);
wanshu=[wanshu j];
end
temp=0;
end
disp(wanshu);
答案 6 28 496 8128