main :: IO()
main = do
 let givenList = [1, 1, 1, 2, 1, 2, 1, 5, 2, 2, 1, 5, 1, 2, 1, 14, 1, 5, 1, 5, 2, 2, 1, 15, 2, 2, 5, 4, 1, 4, 1, 51]
 k <- read <$> getLine :: IO Int
 print $ givenList !! (k - 1)