Deceptive numbers: Difference between revisions
m
Fixed bug in primality check (was reporting 4141 as prime)
(LFE version) |
m (Fixed bug in primality check (was reporting 4141 as prime)) |
||
Line 363:
(cond
((=:= j (byte_size wheel))
(prime? n d
((> (* d d) n)
'true)
Line 387:
#(ok deceptives)
lfe> (lfe_io:format "~w~n" (list (deceptives 10)))
(91 259 451 481 703 1729 2821 2981 3367
ok
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<syntaxhighlight lang="mathematica">ClearAll[DeceptiveNumberQ]
|