let rec f n ls =
  if
    List.exists
      (fun e ->
        let i = n mod e in
        n <> e && i = 0 && n / e > 0 && n / e < 10)
      ls
  then "Yes"
  else "No"

let () =
  let n = read_int () and ls = [1; 2; 3; 4; 5; 6; 7; 8; 9] in
  f n ls |> print_string
