Anonymous user
Lucas-Lehmer test: Difference between revisions
m
→{{header|GAP}}
(adding gap) |
m (→{{header|GAP}}) |
||
Line 542:
s := 4;
for i in [3 .. n] do
s := RemInt(s*s, m) - 2;
od;
return s = 0;
|