main = do
  n <- readLn
  putStrLn . show $ head [x | x <- [0..], power 2 x >= n]

power x n
  | n == 0 = 1
  | even n = power (x * x) (n `div` 2)
  | otherwise = x * power x (n - 1)