local a
a=2
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
print(a)
end
a=a+1
end
bG9jYWwgYQphPTIKd2hpbGUgYTwxMDAwMQpkbwoJbG9jYWwgcyxzdW09MiwxCgl3aGlsZSBzPD0oYS8yKQoJZG8JCgkJaWYgKG1hdGgubW9kKGEscyk9PTApCgkJdGhlbgoJCQlzdW09c3VtK3MKCQllbmQKCQlzPXMrMQoJZW5kCQoJaWYoc3VtPT1hKQoJdGhlbgoJCXByaW50KGEpCgllbmQJCglhPWErMQplbmQ=