#include <bits/stdc++.h>
using namespace std;

int n;
long long K;
const int MAXV = 10000000;
bool composite[MAXV + 1];   // sàng Eratosthenes: composite[x] = true nếu x không phải số nguyên tố
int pre[MAXV + 1];          // pre[x] = số phần tử nguyên tố của dãy có giá trị <= x (dùng ở sub 2)
vector<int> a;              // dãy A_1..A_n

// Đọc số nhanh: dữ liệu có thể lên tới hàng triệu số nên không dùng cin
static char buf[1 << 16];
size_t buflen = 0, bufpos = 0;
int readChar() {
    if (bufpos == buflen) {
        buflen = fread(buf, 1, sizeof(buf), stdin);
        bufpos = 0;
        if (buflen == 0) return -1;
    }
    return buf[bufpos++];
}
long long readNum() {
    int c = readChar();
    while (c != -1 && (c < '0' || c > '9')) c = readChar();
    long long x = 0;
    while (c >= '0' && c <= '9') {
        x = x * 10 + (c - '0');
        c = readChar();
    }
    return x;
}

// Sub 1: vét cạn O(n^2) — thử mọi cặp (i, j), i < j. Dùng khi n <= 1000.
void sub1() {
    long long cnt = 0;
    for (int i = 0; i < n; i++)
        for (int j = i + 1; j < n; j++)
            if (!composite[a[i]] && !composite[a[j]] && llabs((long long)a[i] - a[j]) <= K) cnt++;
    cout << cnt << "\n";
}

// Sub 2: O(n + MAXV). Thứ tự chỉ số không ảnh hưởng đến số cặp, nên chỉ cần quan tâm giá trị.
// pre[x] = số phần tử nguyên tố <= x. Với mỗi phần tử nguyên tố v, số phần tử có giá trị trong [v-K, v+K]
// là pre[v+K] - pre[v-K-1]; trừ đi 1 (chính nó). Mỗi cặp được đếm hai lần nên chia đôi.
void sub2() {
    for (int i = 0; i < n; i++)
        if (!composite[a[i]]) pre[a[i]]++;
    for (int x = 1; x <= MAXV; x++) pre[x] += pre[x - 1];
    long long tong = 0;
    for (int i = 0; i < n; i++) {
        if (composite[a[i]]) continue;
        long long lo = max(0LL, (long long)a[i] - K - 1);
        long long hi = min((long long)MAXV, (long long)a[i] + K);
        tong += pre[hi] - pre[lo] - 1;
    }
    cout << tong / 2 << "\n";
}

int main() {
    freopen("CAU2.inp", "r", stdin);
    freopen("CAU2.out", "w", stdout);

    // Sàng số nguyên tố đến 10^7
    composite[0] = composite[1] = true;
    for (long long i = 2; i * i <= MAXV; i++)
        if (!composite[i])
            for (long long j = i * i; j <= MAXV; j += i) composite[j] = true;

    n = (int)readNum();
    K = readNum();
    a.resize(n);
    for (int i = 0; i < n; i++) a[i] = (int)readNum();
    if (n <= 1000) sub1();
    else sub2();
    return 0;
}