local a
a=1
while a<10001
do
local s,sum=2,1
while s<(a/2)
do
local x=tonumber(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
bG9jYWwgYQphPTEKd2hpbGUgYTwxMDAwMQpkbwoJbG9jYWwgcyxzdW09MiwxCgl3aGlsZSBzPChhLzIpCglkbwoJCWxvY2FsIHg9dG9udW1iZXIoYS9zKQoJCWlmICgoeCpzKT09YSkKCQl0aGVuCgkJCXN1bT1zdW0rcwoJCWVuZAoJCXM9cysxCgllbmQJCglpZihzdW09PWEpCgl0aGVuCgkJaW8ud3JpdGUoYSkKCWVuZAkKCWE9YSsxCmVuZA==