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

function cmmdc(x,y:longint):longint;
begin
if x mod y=0 then cmmdc:=y
			 else cmmdc:=cmmdc(y, x mod y)
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]);
inc(a[i,x[i]]);
end;
for i:=2 to n do
	for j:=1 to 1000 do
      begin
      inc(a[i,j],a[i-1,j]);
      inc(a[i,cmmdc(j,x[i])],a[i-1,j]);
      end;
writeln(g,a[n,1]);
close(F);
close(G);
end.