var
	a:longint;
begin
	read(a);
        if (a mod 3=0) and (a mod 5<>0) then write('Yes')
        else write('No');
end.
/**************************************************************
	Problem: 1674
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/