main = do
  k <- readLn :: IO Int
  let l = [ x * y | x <- [2,3,5,7,11,13], y <- [4,6,8,9,10,12] ]
  putStrLn . show $ (/) (fromIntegral . length $ filter (==k) l) (fromIntegral 36)