Semiprime: Difference between revisions
Content added Content deleted
Line 134: | Line 134: | ||
4 6 9 10 14 15 21 22 25 26 33 34 35 38 39 46 49 51 55 57 58 62 65 69 74 77 82 85 86 87 91 93 94 95 |
4 6 9 10 14 15 21 22 25 26 33 34 35 38 39 46 49 51 55 57 58 62 65 69 74 77 82 85 86 87 91 93 94 95 |
||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
<lang |
<lang lisp>(defun semiprimep (n &optional (a 2)) |
||
(cond ((> a (isqrt n)) nil) |
(cond ((> a (isqrt n)) nil) |
||
((zerop (rem n a)) (and (primep a) (primep (/ n a)))) |
((zerop (rem n a)) (and (primep a) (primep (/ n a)))) |