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