const m=1000;
var x:array[1..501,1..1010] of qword;
    v:array[1..501] of longint;
    n,i,j,k:longint;

function cmmdc(a,b:Longint):longint;
var r:longint;
begin
r:=a mod b;
while r<>0 do
        begin
        a:=b;
        b:=r;
        r:=a mod b;
        end;
cmmdc:=b;
end;

begin
assign(input,'indep.in');reset(input);
assign(output,'indep.out');rewrite(output);
readln(n);
for i:=1 to n do
        readln(v[i]);
x[1,v[1]]:=1;
for i:=2 to n do
        begin
        inc(x[i,v[i]]);
        for j:=1 to m do
                begin
                x[i,j]:=x[i,j]+x[i-1,j];
                inc(x[i,cmmdc(v[i],j)],x[i-1,j]);
                end;
        end;
writeln(x[n,1]);
close(input);close(output);
end.