せかいのなべあつ

(defun ahop (n)
  (let ((n0 (mod n 10)))
    (cond ((= 3 n0) t)
          ((<= n 9) nil)
          (t (ahop (floor n 10))))))

(defun aho3 ( cur end_1 &optional ln )
  (if (>= cur end_1) (nreverse ln)
    (let* ((mf3 (= (mod cur 3) 0))
           (ahof (or mf3 (ahop cur))))
      (setf ln
            (cons
              (if ahof (format nil "Aho~a" cur) cur)
              ln))
      (aho3 (+ cur 1) end_1 ln ))))

3の倍数と3がついたときにあほになります。