
function flag=sub_numeri_amici(m,n)

% La funzione Matlab "sub_numeri_amici", ha
%
% * in input due numeri naturali positivi "m", "n",
%
% * in output una variabile "flag" che se
%      vale "1" afferma che "n" e' la somma dei divisori di "m" minori di "m",
%      vale "0" altrimenti.


divisori=[];
for k=1:m-1
    resto=rem(m,k);
    if resto == 0
        divisori(k)=k;
    else
        divisori(k)=0;
    end
end
somma_divisori=sum(divisori);
if somma_divisori == n
    flag=1;
else
    flag=0;
end
