Anonymous user
Semiprime: Difference between revisions
→{{header|C}}
(Add Seed7 example) |
|||
Line 133:
{{out}}
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}}==
<lang Common Lisp>(defun semiprimep (n &optional (a 2))
(cond ((> a (isqrt n)) nil)
((zerop (rem n a)) (and (primep a) (primep (/ n a))))
(t (semiprimep n (+ a 1)))))
(defun primep (n &optional (a 2))
(cond ((> a (isqrt n)) t)
((zerop (rem n a)) nil)
(t (primep n (+ a 1)))))</lang>
=={{header|D}}==
| |||