Anonymous user
Carmichael 3 strong pseudoprimes: Difference between revisions
m
→{{header|Mathematica}}
(Added EchoLisp) |
|||
Line 570:
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang mathematica>Cases[Cases[
Cases[Table[{p1, h3, d}, {p1, Array[Prime, PrimePi@61]}, {h3, 2,
Line 579:
p2, 1 + Floor[p1 p2/h3]}], {p1_, p2_, p3_} /;
Mod[p2 p3, p1 - 1] == 1 :> Print[p1, "*", p2, "*", p3]]</lang>
=={{header|PARI/GP}}==
<lang parigp>f(p)={
| |||