gistfile1.txt

sub is-prime($a) {
    return Bool::True if $a == 2;
    ! [||] $a <<%%<< (2, 3, *+2 ... * > $a.sqrt);
}

my @fib := (1, 1, *+* ... *);

my $cutoff = 227000;
my $least-prime = 0;
for @fib -> $f {
    next if $f <= $cutoff;
    say "checking $f";
    next unless is-prime($f);
    say $f;
    $least-prime = $f;
    last;
}

my $x = $least-prime + 1;
(2, 3, *+2 ... * > $x.sqrt).grep({ $x %% $^a && is-prime($a) }).perl.say;
say [+] (2, 3, *+2 ... * > $x.sqrt).grep({ $x %% $^a && is-prime($a) });