$ perl -e 'my @lines = (1..2310) ; my @s = (13, 17); my %multiples;
>  for my $div (@s) {
>      $multiples{$_ * $div} = 1 for 1..200;
>  }
>  my @result = grep {not exists $multiples{$_} } @lines;
>  print "@result";
> '
1 2 3 4 5 6 7 8 9 10 11 12 14 15 16 18 19 20 21 22 23 24 25 27 28 29 30 31 32 33 35 36 37 38 40 41 42 43 44 45 46 47 48 49 50 53 54 55 56 57 58 59 60 61 62 63 64 66 67 69 70 71 72 73 74 75 76 77 79 80 81 82 83 84 86 87 88 89 90 92 93 
 ...
2299 2300 2302 2303 2304 2305 2306 2307 2308 2309 2310