program TRIANGLE;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;

var a:array[1..1000000] of integer;
x:array[1..1000000] of integer;
i,n,k,j:integer;
s:integer;
begin
assign(input, 'input.dat');
reset(input);
readln(n);
for i:=1 to n*3 do
read(a[i]);
close(input);
//
assign(output, 'output.ans');
rewrite(output);
for i:=1 to n*3 do x[i]:=0;
for i:=1 to n*3 do
for j:=1 to n*3 do
for k:=1 to n*3 do
if (round(sqrt(a[i]*a[i]+a[j]*a[j]))=round(sqrt(a[k]*a[k]))) and (x[i]=0) and(x[j]=0) and(x[k]=0)
and (i<>j)and (j<>k)
then
begin
x[i]:=1;
x[j]:=1;
x[k]:=1;
end;
for i:=1 to n*3 do s:=s+x[i];
writeln(s/3);
close(output);

end.