program puteri;
type triple=record
        a,b,c:longint;
end;
var f,g:text;
        v:array[1..100001] of triple;
        n:longint;



procedure iofile;
var i:longint;
begin
        assign(f,'puteri.in');
        reset(f);
        assign(g,'puteri.out');
        rewrite(g);
        readln(f,n);
        for i:=1 to n do
                readln(f,v[i].a,v[i].b,v[i].c);
        close(f);
end;


function cmmdc(x,y:longint):longint;
begin
        if y=0 then
                cmmdc:=x else
                cmmdc:=cmmdc(y,x mod y);
end;


procedure prel;
var i,j,a,b,c,cm:longint;
        np:qword;
begin
        np:=0;
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        begin
                                a:=v[i].a+v[j].a;
                                b:=v[i].b+v[j].b;
                                c:=v[i].c+v[j].c;
                                cm:=cmmdc(a,b);
                                cm:=cmmdc(cm,c);
                                if cm<>1 then inc(np);
                        end;
        writeln(g,np);
        close(g);
end;



begin
        iofile;
        prel;
end.