check m xs = f . length . filter (\x -> x * 4 * m >= sum xs) $ xs
    where f x = if x >= m then "Yes" else "No"

main = do
    [_, m] <- map read . words <$> getLine
    xs <- map read . words <$> getLine
    putStrLn $ check m xs