var n,i,j,p,co,p2,p3,p5:integer;
    a,b,c:array[1..100] of integer;
function cmmdc(x,y:integer):integer;
var r:integer;
begin
while y<>0 do begin
  r:=x mod y;
  x:=y;
  y:=r;
end;
cmmdc:=x;
end;
begin
assign(input,'puteri.in');  reset(input);
assign(output,'puteri.out');rewrite(output);
readln(n);
for i:=1 to n do readln(a[i],b[i],c[i]);
for i:=1 to n-1 do
  for j:=i+1 to n do begin
    p2:=a[i]+a[j];
    p3:=b[i]+b[j];
    p5:=c[i]+c[j];
    p:=cmmdc(p2,p3);
    if p<>1 then begin p:=cmmdc(p,p5);
      if p<>1 then inc(co);
    end;
  end;
writeln(co);
close(input); close(output);
end.