program prob70
    implicit none
    integer :: a(32)
    integer :: k
    a = (/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/)
    read(*,*) k
    write(*,*) a(k)



    stop
contains
end program prob70