import Data.List
import Data.Function


isPrime n = all ((/=) 0 . mod n) $ takeWhile ((<= n) . (^ 2)) [2 ..]

main = do
    num  <- readLn
    let li = filter isPrime [1..163819]
    print $ li!!num