count = 0
$n = 0
$m = 0
coin_str = ""
STDIN.each_line {|line|
  if count == 0
    count = 1
    n_m = line.split " "
    $n = n_m[0].to_i
    $m = n_m[1].to_i
  end

  coin_str = line
}

$coin_list = coin_str.split " "
$coin_list.map! {|item| item.to_i }
$coin_list.sort! {|a, b| b <=> a }
# $coin_list.delete (1)

$min_count = $n + 1
$coin_list.each do |num|
  if num == 1
    next
  end

  if $n < num
    next
  end

  tmp1 = $n / num
  tmp2 = $n % num
  count = tmp1 + tmp2
  $min_count = $min_count > count ? count : $min_count
end

def solve i, n, count
  if n == 0
    $min_count = $min_count > count ? count : $min_count;
    return $min_count
  end

  coin = $coin_list[i]
  if coin == 1
    result = count + n
    $min_count = $min_count > result ? result : $min_count;
    return $min_count
  end

  if i == $m
    return $n + 1
  end

  if count > $min_count
    return $min_count
  end

  result1 = result2 = $n + 1
  tmp = n - coin
  if tmp >= 0
      result2 = solve(i, tmp, count + 1)
      $min_count = $min_count > result2 ? result2 : $min_count;
  end
  
  result1 = solve i + 1, n, count
  $min_count = $min_count > result1 ? result1 : $min_count;

  return $min_count
end

puts solve 0, $n, 0

