Deceptive numbers: Difference between revisions

Content added Content deleted
m (Fixed bug in primality check (was reporting 4141 as prime))
Line 358: Line 358:


(defun prime? (n)
(defun prime? (n)
(prime? n 2 0 #B(1 2 2 4 2 4 2 4 6 2 6)))
(if (< n 2)
'false
(prime? n 2 0 #B(1 2 2 4 2 4 2 4 6 2 6))))


(defun prime? (n d j wheel)
(defun prime? (n d j wheel)