program main
  implicit none
  
  integer :: n,a,b,i,j,chk=0
  
  read(*,*)n
  
  a = ceiling(n/4)
  b = ceiling(n/7)
  
  do i = 0, a
    do j = 0, b
      if (n == (i*4 + j*7)) then
        write(*,*)'Yes'
        stop
      end if
    end do
  end do
  
  write(*,*)'No'
end program main