main = do
  [n, m] <- map read . words <$> getLine
  as <- map read . words <$> getLine
  if solve n m as
    then putStrLn "Yes"
    else putStrLn "No"

solve n m as = let sa = sum as in sum [ 1 | a <- as, 4 * m * a >= sa ] >= m
