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