chomp(my $n =  <STDIN>);
chomp(my @arr =  split " ", <STDIN>);

my %ans;
foreach(@arr){
    my $ori_n = $n;
    my $i = 1;
    while($ori_n >= $_){
        $ori_n -= $_;
        $ans{$_*$i} ++;
        $i++;
    }
}

print scalar keys %ans;
print "\n";