var v,x,y:array[1..100000]of integer;
    i,j,n,nr:longint;

function cmmdc(a,b:longint):longint;
var r:longint;
begin
if a=0 then
        begin
        cmmdc:=b;
        exit;
        end;
if b=0 then
        begin
        cmmdc:=a;
        exit;
        end;
r:=a mod b;
while r<>0 do
        begin
        a:=b;
        b:=r;
        r:=a mod b;
        end;
cmmdc:=b;
end;


begin
assign(input,'puteri.in');reset(input);
assign(output,'puteri.out');rewrite(output);
readln(n);
for i:=1 to n do
        readln(v[i],x[i],y[i]);
for i:=1 to n-1 do
        for j:=i+1 to n do
                if cmmdc(cmmdc(v[i]+v[j],x[i]+x[j]),y[i]+y[j])>1 then
                        inc(nr);
writeln(nr);
close(input);close(output);
end.