var a,i,s:longint;
begin
read(a);
for i:=1 to a-1 do
if a mod i=0 then s:=s+i;
if s=a then write('yes')
else write('no');
end.
/**************************************************************
	Problem: 1859
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/