Carmichael 3 strong pseudoprimes: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: removed the need for finding the minimum.) |
m (→{{header|REXX}}: added whitespace to a couple of IF statements.) |
||
| Line 806: | Line 806: | ||
gpm=g*pm; npsh3=((nps//h3)+h3)//h3 /*shortcut stuff. */ |
gpm=g*pm; npsh3=((nps//h3)+h3)//h3 /*shortcut stuff. */ |
||
do d=1 for g-1 |
do d=1 for g-1 |
||
if gpm//d\== |
if gpm // d \== 0 then iterate |
||
if npsh3 |
if npsh3 \== d//h3 then iterate |
||
q=1+gpm%d; if \isPrime(q) then iterate |
q=1+gpm%d; if \isPrime(q) then iterate |
||
r=1+p*q%h3; if q*r//pm\==1 then iterate |
r=1+p*q%h3; if q*r//pm\==1 then iterate |
||