local a a=1 while a<10001 do local s,sum=2,1 while s<(a/2) do if (math.mod(a,s)==0) then sum=sum+s end s=s+1 end if(sum==a) then io.write(a) end a=a+1 end