Mersenne primes: Difference between revisions
Content added Content deleted
(Added Julia language) |
(GP) |
||
Line 198: | Line 198: | ||
2 ^ 4423 - 1 |
2 ^ 4423 - 1 |
||
</pre> |
</pre> |
||
=={{header|PARI/GP}}== |
|||
<lang parigp>LL(p)={ |
|||
my(m=Mod(4,1<<p-1)); |
|||
for(i=3,p,m=m^2-2); |
|||
m==0 |
|||
}; |
|||
forprime(p=2,, if(LL(p), print("2^"p"-1")))</lang> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |