ll x,i=1e6;{rd(x);for(;--i;)x%(i*i)||(x/=i*i);wt(x);}