let readIntArray () =
    stdin.ReadLine().Split(" ") |> Array.map int

let choice ok ng bool = if bool then ok else ng

readIntArray ()
|> fun [| _; m |] ->
    let x = readIntArray ()
    let y = x |> Array.reduce (+)
    x
    |> Array.filter (fun z -> z >= y / (4 + m))
    |> Array.length
    |> ((<=) m)
|> choice "Yes" "No"
|> printfn "%s"
