require 'prime'
def phi_func(n)
    if n.prime?
        return n-1
    else
        cnt=0
        for i in 1..n
            if n.gcd(i)==1
                cnt+=1
            end
        end
        return cnt
    end
end

n=gets.to_i
fct=n.prime_division.map{|fac| fac[0]*fac[1]}
ans=1
fct.each do |elem|
    ans*=phi_func(elem)
end
p ans
