スマートじゃないけど。
100000まででは(6 28 496 8128)だった。
(defun divisor (x)
(let ((n 1) (p '()) (q '()))
　　(while (< (* n n) x)
　　　(if (= (% x n) 0) (setq p (cons n p) q (cons (/ x n) q)))
　　　(setq n (+ n 1)))
　　(nconc (nreverse p) (if (= (* n n) x) (cons n q) q))))

(defun perfect-numberp (x)
　(= (* 2 x) (apply #'+ (divisor x))))