type sir=array[1..100000] of byte;
var a,b,c:sir;
    f,g:text;
    n:longint;

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

function cmmdc(x,y:longint):longint;
var r:longint;
begin
while y<>0 do begin
   r:=x mod y;
   x:=y;
   y:=r
end;
cmmdc:=x
end;


procedure verificare;
var i,j,k,sa,sb,sc,t,aux:longint; ok:boolean;
begin
t:=0;
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];
   {if (sa=sb) and (sb=sc)and (sc>1) then inc (t)
    else
      if (sa mod 2=0) and (sb mod 2=0) and (sc mod 2=0) then inc (t)
         else
       if (sa=1)and(sb=1)and(sc=1) then
         else}
            k:=2; ok:=true;
             while (k<128) and (ok=false) do begin
		 if (sa mod k=0)and(sb mod k=0)and(sc mod k=0) then ok:=true;
		 inc(k)
	      end;
            if ok then inc(t)

      end;
end;
write (g,t);
close (g);
end;

begin
citire;
verificare;
end.