let gcd x y =
  let rec doit x y =
    if y = 0 then x
    else doit y (x mod y) in
  doit (max x y) (min x y)

let lcm x y = x / (gcd x y) * y

let () =
  let n = read_int () in
  Array.init n (fun _ -> read_int ())
  |> Array.fold_left lcm 1
  |> Printf.printf "%d\n"