use strict;
use warnings;

my $range = <>;
my @nums = split ' ', <>;

for my $i (0, 1){
  for my $j ($i+1..2){
    push @nums, $nums[$i]*$nums[$j];
  }
}
push @nums, $nums[0]*$nums[1]*$nums[2];

my $ans = 0;
for (@nums[0..2]) {
  $ans += int($range / $_);
}
for (@nums[3..6]) {
  $ans -= int($range / $_);
}
print $ans;