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;