#include <cstdio>
#include <cstdlib>
#include <iostream>
#include <string>
#include <cmath>
#include <algorithm>
#include <vector>
#include <queue>
#include <stack>
#include <map>
#include <set>
#include <cstring>

typedef long long ll;
using namespace std;

#define mod 1000000007
#define INF 1000000000
#define LLINF 2000000000000000000LL
#define PI 3.1415926536

#define SIZE 1000002

/* BIT(1-index) */
struct BIT{
    int BIT_n;

    int data[SIZE+1];
    
    BIT(int n){
        memset(data,0,sizeof(data));
        BIT_n = n;
    }
    
    void add(int k,int x){
        while(k<=BIT_n){
            data[k]+=x;
            k+= k&(-k);
        }
    }

    int query(int k){
        int rec=0;
        
        while(k>0){
            rec+=data[k];
            k-= k&(-k);
        }
        
        return rec;
    }
};

int n,a[SIZE],s_a[SIZE],dic_size,d,xa,xb,xc=0,ya,yb,yc=0;
int s1[SIZE],s2[SIZE],s3[SIZE];
ll ans=0;
map<int,int> dic;
BIT bit1(SIZE),bit2(SIZE);

int main(){
    
    scanf("%d",&n);
    
    for(int i=0;i<n;i++){
        scanf("%d",&a[i]);
        s_a[i]= a[i];
    }
    
    sort(s_a,s_a+n);
    
    int* end = unique(s_a,s_a+n);
    
    dic_size = (int)(end-s_a);
    
    for(int i=0;i<dic_size;i++){
        dic[s_a[i]] = i+1;
    }
    
    for(int i=0;i<n;i++){
        d = dic[a[i]];
        s1[d]++;
    }
    
    for(int i=1;i<=dic_size;i++){
        bit1.add(i,s1[i]);
    }
    
    for(int i=0;i<n;i++){
        d = dic[a[i]];
        
        xa = bit1.query(d-1);
        xb = bit2.query(d-1);
        //xc = seg3.q(0,d-1);
        ya = (n-i)-xa-s1[d];
        yb = i-xb-s2[d];
        //yc = seg3.q(d+1,dic_size+1);
        
        ans += (ll)xa*xb-xc;
        ans += (ll)ya*yb-yc;
        
        s1[d]--;
        s2[d]++;
        //s3[d]=s1[d]*s2[d];
        bit1.add(d,-1);
        bit2.add(d,1);
        //seg3.s(d,s3[d]);
    }
    
    printf("%lld\n",ans);
    
    return 0;
}