#include <iostream>
#include <cstring>
#include <algorithm>
#include <vector>
#define REP(i,a,b) for(i=a;i<b;i++)
#define rep(i,n) REP(i,0,n)

using namespace std;

typedef long long ll;
typedef unsigned long long ull;
typedef long double ld;
/* ここからが本編 */
/*  */
/* 入力開始！ */
/* 入力終了！ */

/* Eratosthenes(int prime[],int n)は
nまでの素数をprimeに、2,3,と入れていきます */
/* 実行後arr[i]はiが素数の時1になります */
ull arr[10000005];
void Eratosthenes(ull prime[],ull N){
   for(ull i = 0; i < N; i++){
      arr[i] = 1;
   }
   for(ull i = 2; i < sqrt((double)N); i++){
      if(arr[i]){
         for(ull j = 0; i * (j + 2) < N; j++){
            arr[i *(j + 2)] = 0;
         }
      }
   }
   ull a = 0;
   for(ull i = 2; i < N; i++){
      if(arr[i]){
         prime[a++] = i;
      }
   }
}

/* ull_pow(x,n)はx^nを返すよ！ */
ull ull_pow(ull x,ull n) {
   ull res = 1;
   while(n > 0) {
      if(n&1) res = res * x;
      x = x * x;
      n >>= 1;
   }
   return res;
}
ull prime[10000000];
int main(void)
{
  ull i,j,k,l;
  ull x;
  ull rep = 1;
  scanf("%llu",&x);
  Eratosthenes(prime,ull_pow(10,6)+10000);
  for(i=0; x>1 && prime[i] < ull_pow(10,6);i++) {
    if((x % prime[i]) == 0) {
      int cnt = 1;
      x /= prime[i];
      while((x % prime[i]) == 0) {
        cnt++;
        x /= prime[i];
      }
      if(cnt % 2) rep *= prime[i];
    }
  }
  rep *= x;
  printf("%llu\n",rep);
  return 0;
}