var f,g:text;
i,n,n1,n2,ii,j,k:longint;
function cond(n1:longint;n2:longint):boolean;
var a,b,r:longint;
sw:boolean;
begin
a:=n1;
b:=n2;
sw:=true;
if n1=n2 then sw:=false;
repeat r:=a mod b;
 a:=b;
 b:=r;
until r=0;
if a<>1 then sw:=false;
cond:=sw;
end;
begin
k:=0;
assign(f,'pairs.in');
assign(g,'pairs.out');
reset(f);
rewrite(g);
readln(f,n);

for i:=1 to n-1 do begin
  reset(f);
  for ii:=1 to i do readln(f);
  readln(f,n1);
 for j:=i+1 to n do begin
   readln(f,n2);
   if cond(n1,n2) then inc(k);
   end;
 end;
writeln(g,k);
close(f);
close(g);
end.