Anonymous user
Semiprime: Difference between revisions
→{{header|Common Lisp}}
Line 143:
((zerop (rem n a)) nil)
(t (primep n (+ a 1)))))</lang>
Example Usage:
<pre>CL-USER> (semiprimep 1234567)
T
CL-USER> (semiprimep 9876543)
NIL</pre>
=={{header|D}}==
|