module Main where

import qualified Data.Vector as Vector
import Data.List

main :: IO ()
main =
    print =<< (vec  Vector.! ) <$> (\a -> a - 1) <$> getInt


getInt :: IO Int
getInt = read <$> getLine

vec :: Vector.Vector Int
vec = Vector.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]
