Untitled

my $n  := 2, 3 ... 100;
my (@np, @ap);
loop (my $a = 0; $a < 1000; $a++) {
 
  if $a %% $n[^20].any {
    #
    @ap.push($a);
    }
    else {
      @np.push($a);
    }
 
 
}
say @np.elems;
say @ap.elems;