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
  let t = Array.init n (fun _ -> read_int ()) in
  let rec doit i ans =
    if i = n then ans
    else doit (i + 1) (max ans (lcm t.(i-1) t.(i))) in
  doit 1 min_int |> Printf.printf "%d\n"