import Data.List

main = do
  li <- getLine
  let n = read li
  let ans = compute n
  print ans

{-
双曲線xy=nのOに近い格子点を探す、つまりy=xに近いところ。
素因数分解して、xとyに交互に因数を与えていくぐらいしかやれることはなさそう。
それは大雑把すぎたようだ。
偶数個の素因数は平等に分ければよい。
そうでないものに関して、2^nをする必要があるのかしら。
greedyに、大きい方から始めて、小さい方に掛け合わせるぐらいでできないかしら。
-}

compute :: Int -> Int
compute n = ep*a + ep*b - 2
  where
    ps = group $ primeFactors n
    ops = map head $ filter (odd . length) ps
    ep = product $ map (\xs -> product $ take (length xs `div` 2) xs) ps
    abs = power [(1,1)] ops
    (a,b) = getmin abs

power abs [] = abs
power abs (p:ps) = power [ab|(a,b) <-abs, ab <- [(a*p,b),(a,b*p)]] ps

getmin ps = snd $ minimum [ (abs (a-b),(a,b)) | (a,b) <- ps ]

primes = 2 : 3 : 5 : sieve [(9,3),(10,5)] [7,9..]

sieve ((q,p):qps) xxs@(x:xs) =
  case compare q x of
    LT -> sieve qps1 xxs
    EQ -> sieve qps1 xs
    GT -> x : sieve (insert (x+x,x) qps) xs
  where
    qps1 = insert (q+p,p) qps

primeFactors n = loop n primes
  where
    loop 1 _ = []
    loop n pps@(p:ps)
      | r == 0 = p : loop q pps
      | q < p  = [n]
      | True   = loop n ps
      where (q,r) = divMod n p