#include <iostream>
#include <vector>
#include <algorithm>
#include <cmath>
#include <queue>
#include <string>
#include <map>
#include <set>
#include <stack>
#include <tuple>
#include <deque>
#include <array>
#include <numeric>
#include <bitset>
#include <iomanip>
#include <cassert>
#include <chrono>
#include <random>
#include <limits>
#include <iterator>
#include <functional>
#include <sstream>
#include <fstream>
#include <complex>
#include <cstring>
#include <unordered_map>
#include <unordered_set>
using namespace std;

// #pragma GCC optimize("O3")
// #pragma GCC optimize("unroll-loops")
// #pragma GCC target("sse,sse2,sse3,ssse3,sse4,popcnt,abm,mmx,avx,avx2,tune=native")
// #pragma GCC target("avx512f,avx512dq,avx512cd,avx512bw,avx512vl")

using ll = long long;
constexpr int INF = 1001001001;
constexpr int mod = 1000000007;
// constexpr int mod = 998244353;

template<class T>
inline bool chmax(T& x, T y){
    if(x < y){
        x = y;
        return true;
    }
    return false;
}
template<class T>
inline bool chmin(T& x, T y){
    if(x > y){
        x = y;
        return true;
    }
    return false;
}

int main(){
    ios::sync_with_stdio(false);
    cin.tie(nullptr);

    int n;
    cin >> n;
    vector<int> a(n);
    map<int, int> cnt;
    for(int i = 0; i < n; ++i){
        cin >> a[i];
        cnt[a[i]] += 1;
    }

    ll ans = 0;
    for(int i = 0; i < n - 1; ++i){
        if(a[i] == 1){
            ans += 3LL * cnt[2];
            ans += 2LL * (n - i - 1 - cnt[2]);
        }
        else if(a[i] == 2){
            ans += 3LL * cnt[1];
            ans += n - i - 1 - cnt[1];
        }
        else{
            ans += 2LL * cnt[1];
            ans += n - i - 1 - cnt[1];
        }
        cnt[a[i]] -= 1;
    }

    cout << ans << endl;
    
    return 0;
}