import qualified Data.Vector as V

main :: IO ()
main = do
  let xs = V.fromList [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]
  n <- readLn :: IO Int
  print $ V.unsafeIndex xs n