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;
    tot:longint;
{    x:array[1..400] of 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
{  fillchar(p,sizeof(p),0);}
  tot:=0;
  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 begin
{          p[i*MAX*MAX+j*MAX+k]:=1;}
          tot:=tot+1;

        end;
  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;

{  for i:=1 to n-1 do
    for j:=i+1 to n do
      if p[a*MAX*MAX+b*MAX+c]=1 then inc(num);}



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