(defun main ()
  (let ((n (read)))
    (loop for i from 0 to (floor n 5)
       with res = 0
       do
         (loop for j from 0 to (min i (floor n 2))
            do
              (loop for k from 0 to (floor n 3)
                 do
                   (when (= (+ (* i 5)
                               (* j 2)
                               (* k 3))
                            n)
                     (incf res))))
       finally
         (princ res)
         (fresh-line))))

(main)