const MAX = 64;
var f,g:text;
{    a,b,c:array[1..100000] of byte;}
    p:array[0..(MAX+1)*(MAX+1)*(MAX+1)] of byte;
    n,i,j,k,num:longint;
    a,b,c:integer;

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
  for i:=0 to MAX do
    for j:=0 to MAX do
      for k:=0 to MAX do
        if cmmdc(cmmdc(i,j),k)<>1 then
          p[i*MAX*MAX+j*MAX+k]:=1;
  num:=0;

  assign(f,'puteri.in');
  reset(f);
  read(f,n);
  for i:=1 to n do begin
    read(f,a,b,c);
    if p[a*MAX*MAX+b*MAX+c]=1 then inc(num);
  end;

  close(f);
  assign(g,'puteri.out');
  rewrite(g);
  writeln(g,num);
  close(g);

end.