//Нужно было написать программу,что считает кол-во пар чисел
//необязательно стоящих рядом, что были кратны 39
var i,a,n,S39,S13,S3,sum,sum39:integer;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(a);
    if a mod 39=0 then
      S39:=s39+1
    else
      if a mod 13=0 then
        S13:=S13+1
      else
        if a mod 3=0 then
          S3:=S3+1
  end;
  for i:=1 to S39 do
    Sum39:=Sum39+(n-i);
  Sum:=S13*S3+Sum39;
  writeln(Sum);
end.