Imports System
Module ABC105B
	Sub Main()
		Dim n As Integer = Integer.Parse(Console.ReadLine())
		Dim ans As Boolean = False
		For x As Integer = 0 To 25
			For y As Integer = 0 To 15
				If x * 4 + y * 7 = n
					ans = True
					Exit For
				End If
			Next
			If ans = True Then Exit For
		Next
		
		If ans
			Console.WriteLine("Yes")
		Else
			Console.WriteLine("No")
		End If
	End Sub
End Module
