program test
implicit none
integer :: i,j,k,m,n,ans
 
read(*,*) n

ans = 0

do i= 0,25
do j =0,25
if(4*i + 7*j == n) then
ans =1
endif
enddo
enddo

if(ans == 1) then
write(*,*) 'Yes'
else
write(*,*) 'No'
endif


end program