import Data.Bool
main = do
  [n, m] <- map read . words <$> getLine
  a <- map read . words <$> getLine
  putStrLn $ bool "No" "Yes" $
    (>= m) $ length $
    filter (>= sum a `divCeil` (4*m)) a

divCeil a b = div (a+b-1) b