type nmari=array[0..1000] of longint;
var f,g:text;
x:array[1..512] of longint;
a:array[0..1,1..1000] of nmari;
n,i,j,k,l,m,l1,l2:longint;

function cmmdc(l,u:longint):longint;
begin
if l mod u=0 then cmmdc:=u
			 else cmmdc:=cmmdc(u, l mod u)
end;

procedure incr(var z,t:nmari);
var i:longint;
begin
if t[0]>z[0] then z[0]:=t[0];
for i:=1 to z[0] do
	begin
    inc(z[i], t[i]);
    if (z[i]>=10) then
    			  begin
                  dec(z[i], 10);
                  inc(z[i+1]);
                  end;
    end;
if (z[z[0]+1]>0) then inc(z[0]);
end;



begin
assign(f,'indep.in');
assign(g,'indep.out');
reset(f);
rewrite(G);
readln(f,n);
for i:=1 to n do
begin
read(f,x[i]);
end;
l1:=0;
l2:=1;
a[0,x[1]][1]:=1;
a[0,x[1]][0]:=1;
for i:=2 to n do
begin
for j:=1 to 1000 do
 fillchar(a[l2][j],sizeof(a[l2,j]),0);
a[l2,x[i]][1]:=1;
a[l2,x[i]][0]:=1;
	for j:=1 to 1000 do
      begin
      incr(a[l2,j],a[l1,j]);
      incr(a[l2,cmmdc(j,x[i])],a[l1,j]);
      end;
m:=l1;
l1:=l2;
l2:=m;
end;
for i:=a[l1,1][0] downto 1 do write(g,a[l1,1][i]);
close(F);
close(G);
end.