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