(*
ocamlfind ocamlopt -package batteries -linkpkg main.ml -o a.out
*)
open Batteries

let n = Scanf.sscanf (read_line ()) "%d" ( fun n -> n)
let d, x = Scanf.sscanf (read_line ()) "%d %d" ( fun d x -> d, x)
let lst = List.init n ( fun _ -> Scanf.sscanf (read_line ()) "%d" ( fun a -> a))

let f a = (List.range 0 `To 100)
          |> List.map (fun elmnt -> (a * elmnt) + 1)
          |> List.filter (fun elmnt -> elmnt <= d)

let rec f2 lst =
        match lst with
                  [] -> x
                | first :: rest -> 
                        List.length (f first) + (f2 rest)

let () =
        f2 lst 
        |> Printf.printf "%d\n"
