import qualified Data.Vector.Unboxed as U

main :: IO ()
main = do
  k <- readLn
  print $ solve k

solve :: Int -> Int
solve k = seq U.! (k - 1)
  where
    seq = U.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]