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