var f,g:text;
    a,b,c:array[1..10000] of byte;
    n,i,j,num:longint;

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

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

  for i:=1 to n-1 do
    for j:=i+1 to n do
      if cmmdc(cmmdc(a[i]+a[j],b[i]+b[j]),c[i]+c[j])<>1 then inc(num);
  assign(g,'puteri.out');
  rewrite(g);
  writeln(g,num);
  close(g);

end.