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