/**
有三条特性
若a为质数  phi[a]=a-1
若a为质数,b%a==0   phi[a*b]=phi[b]*a;
若a b 互质  phi[a*b]=phi[a]*phi[b]（当a为质数  如果b%a!=0）

*/
#include<iostream>
using namespace std;
const int maxn=1e5+50;
int phi[maxn],prime[maxn],p[maxn];//phi[i]代表i的欧拉函数值  prime[i]=0代表是素数 1代表不是素数   p存储素数
void make()
{
    phi[1]=1;//特例 
    int num=0;
    for(int i=2;i<=maxn;i++)
    {
        if(!prime[i])//是素数
        {
            p[num++]=i;//
            phi[i]=i-1;//素数的欧拉函数值就是它的值减1
        }
        for(int j=0;j<num&&p[j]*i<maxn;j++)//用当前已经得到的素数筛去p[j]*i
        {
            prime[p[j]*i]=1;//可以确定p[j]*i不是质数
            if(i%p[j]==0)//第二条特性
            {
                phi[p[j]*i]=phi[i]*p[j];
                break;//欧拉筛的核心语句  保证每个数只会被自己最小的质因子筛掉一次
            }
            else phi[p[j]*i]=phi[i]*phi[p[j]];
        }
    }
    return ;
}

int main()
{
    make();
//    for(int i=1;i<=100;i++) cout<<phi[i]<<" ";

    return 0;
}

#include<iostream>
#include<cmath>
using namespace std;
int eular(int n)
{
    int res=n,m=n;
    for(int i=2;i<=sqrt(m);i++)
    {
        if(m%i==0)
        res=res/i*(i-1);
        while(m%i==0)
        m=m/i;
    }
    if(m>1)
    res=res/m*(m-1);
    return res;
}
int main()
{
    int n;
    cin>>n;
    cout<<eular(n)<<endl;
    return 0;
}