a,b=gets.split.map &:to_i
if a%b==0
  a/=b
else
  while true do
    j=true
    (2..Math.sqrt(b)).each do |e|
      if b%e==0 && a%e==0
        b/=e
        a/=e
        j=false
        break
      end
    end
    break if j
  end
end
p a-1