var a:array[1..100000,1..3]of integer;
    n,i,j,k:integer;
    l:array[1..31]of integer;
    r:longint;
    f,g:text;

function pa(x,y,z:integer):boolean;
var p:boolean;
begin
p:=true;
k:=0;
while p and (k<31) do begin
   k:=k+1;
   if x mod l[k]=0 then if y mod l[k]=0 then if z mod l[k]=0 then p:=false;
end;
pa:=not p;
end;

begin
assign(f,'puteri.in');
reset(f);
readln(f,n);
l[1]:=2;
l[2]:=3;
l[3]:=5;
l[4]:=7;
l[5]:=11;
l[6]:=13;
l[7]:=17;
l[8]:=19;
l[9]:=23;
l[10]:=29;
l[11]:=31;
l[12]:=37;
l[13]:=41;
l[14]:=43;
l[15]:=47;
l[16]:=53;
l[17]:=59;
l[18]:=61;
l[19]:=67;
l[20]:=71;
l[21]:=73;
l[22]:=79;
l[23]:=83;
l[24]:=89;
l[25]:=97;
l[26]:=101;
l[27]:=103;
l[28]:=107;
l[29]:=109;
l[30]:=113;
l[31]:=127;
readln(f,a[1,1],a[1,2],a[1,3]);
for i:=2 to n do begin
   readln(f,a[i,1],a[i,2],a[i,3]);
   for j:=1 to i-1 do if pa(a[i,1]+a[j,1],a[i,2]+a[j,2],a[i,3]+a[j,3]) then r:=r+1;
end;
assign(g,'puteri.out');
rewrite(g);
write(g,r);
close(g);
end.