var i,j,k,p,sa,sb,sc,r,r2:integer;
    n:longint;
    a,b,c:array[1..100000] of integer;
    f,g:text;
begin
k:=0;
assign(f,'puteri.in');reset(f);
readln(f,n);
for i:=1 to n do
readln(f,a[i],b[i],c[i]);
assign(g,'puteri.out');rewrite(g);
for i:=1 to n do begin
    for j:=i+1 to n do begin
        sa:=a[i]+a[j];
        sb:=b[i]+b[j];
        sc:=c[i]+c[j];
        while sb<>0 do begin
           r:=sa mod sb;
           sa:=sb;
           sb:=r;
        end;
        while sc<>0 do begin
           r2:=sa mod sc;
           sa:=sc;
           sc:=r2;
        end;
        if sa>1 then k:=k+1;
end;
end;
write(g,k);
close(g);
close(f);
end.