program eight(input,output);
var
 n:longint;
 w:Array[1..15]of longint;
 t:array[1..15]of boolean;
 s:array[1..100000000]of boolean;
 i,j:longint;
 a,b,x,p,ans:longint;
 flag:boolean;

begin
 assign(input,'eight.in');
 reset(input);
 readln(n);
 for i:=1 to n do
 begin
  read(w[i]);
  if (w[i]=1)or(w[i]=2)or(w[i]=4)or(w[i]=8) then flag:=true;
 end;
 readln;
 readln(a,b);
 close(input);

 if flag=false then
 begin
  for i:=1 to n do
   for j:=1 to i-1 do
    if w[i] mod w[j]=0 then t[i]:=true;

  p:=n;
  for i:=1 to n do
   if t[i]=true then
   begin
    for j:=i+1 to n do
    begin
     w[j-1]:=w[j];
     t[j-1]:=t[j];
     dec(p);
    end;
   end;

  for i:=1 to p do
  begin
   x:=((a div w[i])+1)*w[i];
   while x<=b do
   begin
    s[x]:=true;
    x:=x+w[i];
   end;
  end;

  x:=((a div 8)+1)*8;
  while x<=b do
  begin
   if s[x]=false then inc(ans);
   x:=x+8;
  end;
 end;

 assign(output,'eight.out');
 rewrite(output);
 writeln(ans);
 close(output);
end.