Imports System.Collections.Generic
Imports System.Console
Module Program
    Function f(N As Integer) As String
        For i4 As Integer = 0 to N
            For i7 As Integer = 0 to N
                If i4 * 4 + i7 * 7 = N Then
                    Return "Yes"
                End If
            Next i7
        Next i4
        Return "No"
    End Function
 	
 	Sub Main()
        Dim tmp As String() = Split(Console.ReadLine())
	    Dim N As Integer = tmp(0)
        Console.WriteLine(f(N))
    End Sub
End Module
