(print 
  (let ((list (list)))
    (loop :for i :from 2 :to 100 :do
      (loop :for x :from i :to 100 :by i
            :do (pushnew x list)))
    (length list)))