7 lines
218 B
Raku
7 lines
218 B
Raku
my $limit = 2700;
|
|
|
|
say "Repunit prime digits (up to $limit) in:";
|
|
|
|
.put for (2..16).hyper(:1batch).map: -> $base {
|
|
$base.fmt("Base %2d: ") ~ (1..$limit).grep(&is-prime).grep( (1 x *).parse-base($base).is-prime )
|
|
}
|