Module Module1

    Sub Main()

        Dim InTbl As String = "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"
        Dim tmp As String() = Split(intbl, ",")
        Dim K As Integer = CInt(Console.ReadLine())

        Console.WriteLine(tmp(K - 1).Trim)

    End Sub

End Module
