#include <cstdio>
#include <vector>

using namespace std;

#define MOD 11257
#define MAX_N 1025

struct oaie
{
    int nr;
    vector <int> I, J;
};

int N, L, V[MAX_N];
vector <oaie> H[MOD];
long Rez;

void hash(int i, int j)
{
    int x = V[i] + V[j];
    if(x > L) return;
    int k = x % MOD;

    for(vector<oaie>::iterator it = H[k].begin(); it != H[k].end(); ++it)
        if(it -> nr == x)
        {
            it -> I.push_back(i);
            it -> J.push_back(j);
            return;
        }
    oaie w;
    w.nr = x;
    w.I.push_back(i);
    w.J.push_back(j);
    H[k].push_back(w);
}

int search(int i, int j)
{
    int x = L - V[i] - V[j];
    int k = x % MOD;
    int Sol = 0;

    for(vector<oaie>::iterator it = H[k].begin(); it != H[k].end(); ++it)
        if(it -> nr == x)
            for(int k = 0; k <= it -> I.size(); ++k)
                if(it -> I[k] > j && it -> J[k] != j)
                    ++Sol;
    return Sol;
}

void citire()
{
    scanf("%d %d",&N, &L);

    for(int i = 1; i <= N; ++i)
        scanf("%d",V+i);
}

void solve()
{
    for(int i = 1; i < N; ++i)
        for(int j = i+1; j <= N; ++j)
            hash(i, j);

    for(int i = 1; i < N; ++i)
        for(int j = i+1; j <= N; ++j)
            Rez += search(i, j);
    printf("%ld\n",Rez);
}

int main()
{
    freopen("oite.in","rt",stdin);
    freopen("oite.out","wt",stdout);

    citire();
    solve();
}