open Printf
open Scanf

module L =
  struct
    include List
  
    let init n f =
      let rec loop x =
        if x = n then []
        else let y = f x in y :: loop (x + 1)
      in loop 0
  end

let id x = x

let solve n m =
  let l = L.init n @@ fun _ -> scanf "%d " id in
  let w = L.fold_left (+) 0 l in
  if m <= L.length (L.filter (fun x -> 4 * m * x >= w) l) then "Yes" else "No"

let () =
  scanf "%d %d " solve |> printf "%s\n"
