program ABC105B
    implicit none
    integer(8)::N
    integer(8)::flg=0

    read(5,*)N

    if(mod(N,4)==0 .or. mod(N,7)==0)then
        print'(A)',"Yes"
    else
        do
            N=N-4
            !print'(i0)',N
            if(mod(N,7)==0 .or. mod(N,4)==0)then
                flg=1
                exit
            else if(N<4)then
                exit
            end if
        end do

        if(flg==0)then
            print'(A)',"No"
        else
            print'(A)',"Yes"
        end if
    end if
    
end program ABC105B