//Дана последовательность  целых положительных чисел. Рассматриваются все пары элементов последовательности, находящихся на расстоянии
//не меньше 6  (разница в индексах элементов должна быть 6 или более). Необходимо определить количество пар, произведение чисел в
//которых кратно 6.

// 27 задание 2 балла
#include <iostream>

using namespace std;


int main(){
    int N,count=0;
    cin >> N;
    int a[N];
    for (int i=0; i<N; i++ ){
        cin >> a[i];
    }
    for (int i = 0 ; i < N; i++ ) {
        for(int j = i + 6; j < N; j++){
            if(a[i] * a[j] % 6 == 0 ) count++;
        }
    }
    cout << count;
}


//4 балла
#include <iostream>

using namespace std;


int main(){
    const int d = 6;
    int a[d] = {0}, N, count=0, temp, div[d+1] = {0};
    cin >> N;
    for(int i = 0; i < d ; ++i){
        cin >> a[i];
    }
    for(int i = d; i<N; ++i){
        cin >> temp;
        if(a[0] % 6 == 0) div[6]++;
        if(a[0] % 3 == 0) div[3]++;
        if(a[0] % 2 == 0) div[2]++;
        if(a[0] % 1 == 0) div[1]++;
        if(temp % 6 == 0) count += div[1];
        else if(temp % 3 == 0) count += div[2];
        else if(temp % 2 == 0) count += div[3];
        else count += div[6];
        for (int j=0; j<d-1; ++j) a[j] = a[j+1];
        a[d] = temp;
    }
    cout << count;

}