let rec fix f x = f (fix f) x
let factors n = (* O(sqrt n) *)
  let m,r = ref n,ref [] in
  for i=2 to (2+int_of_float (sqrt @@ float_of_int n)) do
    if !m mod i = 0 then (
      let k = ref 0 in
      while !m mod i = 0 do
        k := !k + 1; m := !m / i;
      done;
      r := (i,!k) :: !r
    )
  done;
  if !m>1 then (!m,1)::!r else !r
let pow n k =
  let rec f a n = function
  | 0 -> a | 1 -> n*a | k when k mod 2 = 0 -> f a (n*n) (k/2) | k -> f (a*n) (n*n) (k/2)
  in f 1 n k
let n,p = Scanf.scanf " %d %d" @@ fun u v -> u,v
let () = print_int (factors p |> List.fold_left (fun u (m,k) ->
  u * (if k>=n then pow m (k/n) else 1)) 1)


