(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((a (read))
         (b (read))
         (c (make-array 1000 :element-type 'integer :initial-element 0)))
    (loop for i to a do
          (loop for j to b do
                (incf (aref c (+ i (* 5 j))))))
    (loop for i from 1 to 600
          when (plusp (aref c i))
            do (format t "~d~%" i))))

(main)