var f,g:text;
a:array[1..100000,1..3] of byte;
nr,n,i,j,k,l,s1,s2,s3:longint;
function cmmdc(a,b,c:byte):byte;
var d,r:byte;
begin
if a=0 then d:=b
       else if b=0 then
                   d:=a
       else
       begin
       repeat
       r:=a mod b;
       a:=b;
       b:=r;
       until b=0;
       d:=a;
       end;
if d=0 then d:=c
       else
           if c=0 then cmmdc:=d
       else
       begin
       repeat
       r:=d mod c;
       d:=c;
       c:=r;
       until c=0;
       cmmdc:=d;
       end;
end;
begin
assign(f,'puteri.in');
assign(g,'puteri.out');
reset(F);
rewrite(G);
readln(f,n);
for i:=1 to n do
    readln(f,a[i,1],a[i,2],a[i,3]);
nr:=0;
for i:=1 to n do
    for j:=i+1 to n do
        begin
        s1:=a[i,1]+a[j,1];
        s2:=a[i,2]+a[j,2];
        s3:=a[i,3]+a[j,3];
        if cmmdc(s1,s2,s3)>1 then
                                nr:=nr+1;
        end;
writeln(g,nr);
close(F);
close(G);
end.