import Data.List

sv (x:xs) = x:sv [y | y <- xs, rem y x /= 0]

main = do { n <- fmap read getLine ;
  print $ 
    last $ take n $ sv [2..] }