var
   f:text;
   a1,b1,a2,b2,a3,b3,s,st,s2,i,j,y,k:longint;
begin
     assign(f,'plus.in');reset(f);
     read(f,s);
     read(f,b1,a1);read(f,b2,a2); read(f,b3,a3);
     close(f);
     assign(f,'plus.out');rewrite(f);
     k:=0;             st:=0;
     for i:=0 to b1 do
         for j:=0 to b2 do
             for y:=0 to b3 do
              begin
              st:=i*a1+j*a2+y*a3;
              if ((s2<st)and(s<s2)) or (s2>st)and(s>s2) then break;
              s2:=st;
              if st=s then k:=k+1;
              end;

     write(f,k);
     close(f);
end.