program info;
type nod=^pnod;
     pnod=record
          infutil:word;
          infleg:nod;
          end;
var    vf,p:nod;     di,suma,n,i:longint; k:integer;     f,g:text;

procedure schimbat(vf:nod;di:longint);  var q:nod;
begin
n:=0;
q:=vf;
while q<>nil do begin
      n:=n+1; if n mod di=0 then if q^.infutil=0 then q^.infutil:=1
                                                 else q^.infutil:=0;
      q:=q^.infleg;
      end;
end;

begin    assign(f,'light2.in'); reset(f);  suma:=0;
vf:=nil;    readln(f,n);  readln(f,k);
for i:=1 to n do begin new(p); p^.infutil:=0; p^.infleg:=vf; vf:=p; end;
while not eof(f) do begin read(f,di); schimbat(vf,di); end;
p:=vf; while p<>nil do begin suma:=suma+p^.infutil; p:=p^.infleg; end;
assign(g,'light2.out');
rewrite(g);
write(g,suma); close(f); close(g);
end.