var v:array[1..800] of integer;
    n,i,j,k:integer;
    f,g:text;
    x:longint;
begin
assign(f,'nrtri.in');
reset(f);
readln(f,n);
for i:=1 to n do read(f,v[i]);
close(f);
x:=0;
for i:=1 to n-2 do
 for j:=i+1 to n-1 do
  for k:=j+1 to n do
     if (v[i]+v[j]>=v[k])and(v[i]+v[k]>=v[j])and(v[j]+v[k]>=v[i])
      then
       begin
        if (v[i]=v[j])and(v[i]=v[k])and(v[k]=v[j]) then x:=x+1
        else if (v[i]=v[j])or(v[j]=v[k])or(v[k]=v[i]) then x:=x+2
        else x:=x+6;
      end;
assign(g,'nrtri.out');
rewrite(g);
writeln(g,x);
close(g);
end.