type rec=record
	a,b,c:integer;
   end;

function cmmdc2(v1,v2:integer):integer;
var r,m1,m2:integer;
begin
m1:=v1;
m2:=v2;
if (m1=0) then
	cmmdc2:=m2
else
if (m2=0) then
	cmmdc2:=m1
else
begin
	while m2<>0 do begin
   	r:=m1 mod m2;
      m1:=m2;
      m2:=r;
      end;
   cmmdc2:=m1;
end;
end;
function cmmdc(v1,v2,v3:integer):integer;
var k,m1,m2,m3:integer;
begin
cmmdc:=cmmdc2(cmmdc2(v1,v2),v3);
end;

var v:array[1..100000] of rec;
n,i,j,nr:longint;
f,g:text;
begin
assign(f,'puteri.in');
assign(g,'puteri.out');
reset(f);
rewrite(g);
read(f,n);
for i:=1 to n do begin
	read(f,v[i].a,v[i].b,v[i].c);
   for j:=1 to i-1 do
   	if cmmdc(v[i].a+v[j].a,v[i].b+v[j].b,v[i].c+v[j].c)>1 then
      	inc(nr);
   end;
write(g,nr);
close(f);
close(g);
end.