(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((n (read))
         (a (floor n 15))
         (b (* a 4)))
    (incf b (* 2 (- (floor n 5) a)))
    (incf b (* 2 (- (floor n 3) a)))
    (format t "~D~%" b)))

(main)