local a = io.read("*n")
local t = {}
local divnum = 2
local divmax = math.ceil(math.sqrt(a))
while(divnum <= divmax) do
  if(a % divnum == 0) then
    if(t[divnum] == nil) then t[divnum] = 1 else t[divnum] = nil end
    a = a / divnum
  else
    divnum = divnum + (divnum == 2 and 1 or 2)
  end
end
local res = 1
if(1 < a) then res = a end
for k, v in pairs(t) do
  res = res * k
end
print(res)