Repunit primes: Difference between revisions

Content added Content deleted
m (→‎{{header|Wren}}: Minor tidy)
(Add PARI/GP implementation)
 
Line 511: Line 511:
16: 2
16: 2
</pre>
</pre>

=={{header|PARI/GP}}==
{{trans|Julia}}
<syntaxhighlight lang="PARI/GP">
default(parisizemax, "128M")
default(parisize, "64M");


repunitprimeinbase(n, base) = {
repunit = sum(i=0, n-1, base^i); /* Construct the repunit */
return(isprime(repunit)); /* Check if it's prime */
}

{
for(b=2, 40,
print("Base ", b, ": ");
for(n=1, 2700,
if(repunitprimeinbase(n, b), print1(n, " "))
);
print(""); /* Print a newline */
)
}
</syntaxhighlight>


=={{header|Perl}}==
=={{header|Perl}}==