local mmi, mma = math.min, math.max
local t = {}
for i = 1, 4 do t[i] = io.read("*n") end
local inf = 1000000007
local function solve(z, v)
  local dp = {}
  for i = 1, v do
    dp[i] = inf
  end
  dp[z[1]], dp[z[2]], dp[z[3]] = 1, 1, 1
  for src = 1, v - 1 do
    for j = 1, 3 do
      local dst = src + z[j]
      if dst <= v then
        dp[dst] = mmi(dp[dst], dp[src] + 1)
      end
    end
  end
  return dp[v]
end

local function solveAll(z)
  local ret = 0
  for i = 1, 4 do
    ret = ret + solve(z, t[i])
  end
  return ret
end
local ret = inf
for i = 1, 28 do
  for j = i + 1, 29 do
    for k = j + 1, 30 do
      ret = mmi(ret, solveAll({i, j, k}))
    end
  end
end
print(ret)