
# オイラーのφ関数。1からnまでの自然数のうち
# nと互いの素なものの個数。
require 'prime'
def eular_phi(n)
    primes = n.prime_division
    # n が p1^e1・p2^e2 … pk^ek と素因数分解できるとき、
    # φ(n) = N ( 1 - 1/p1 ) ( 2 - 1/p2 ) … ( 1 - 1/pk )
    ret = n
    primes.each do |prime|
        ret *= prime.first - 1
        ret /= prime.first
    end
    ret
end


N = gets.to_i
puts eular_phi(N)
