main :: IO ()
main = readLn >>= print . solver
  where
    solver :: Int -> Int
    solver n
      | n == 0    = 1
      | n <= 15   = solver (n `div` 3) + solver (n `div` 5)
      | n <= 225  = 2 * solver (n `div` 15) + solver (n `div` 25) + solver (n `div` 9)
      | otherwise = 3 *  solver (n `div` 75) + 3 * solver (n `div` 45) + solver (n `div` 125) + solver (n `div` 27)