#include <iostream>
#include <vector>
#include <fstream>

using namespace std;

ifstream fin("oite.in");
ofstream fout("oite.out");

#define MOD 100021
#define DIM 1030

vector < pair<int,int> > Hash[MOD];

int n,v[DIM],l;

long long int ans=0;

void Read()
{
    fin>>n>>l;
    for(int i=1;i<=n;i++)
        fin>>v[i];
}

void Push_Hash(int value)
{
    int List=value%MOD;
    vector < pair<int,int> > ::iterator it;
    for(it=Hash[List].begin();it!=Hash[List].end();it++)
    {
        if((*it).first==value)
        {
            (*it).second++;
            return;
        }
    }
    Hash[List].push_back(make_pair(value,1));
}

int Find_Hash(int value)
{
    int List=value%MOD;
    vector < pair<int,int> > ::iterator it;
    for(it=Hash[List].begin();it!=Hash[List].end();it++)
    {
        if((*it).first==value)
            return (*it).second;
    }
    return 0;
}

void Sol()
{
    for(int i=1;i<n;i++)
    {
        for(int j=i+1;j<=n;j++)
        {
            if((v[i]+v[j])<=l)
                ans+=Find_Hash(l-v[i]-v[j]);
        }
        for(int j=i-1;j>=1;j--)
            Push_Hash(v[i]+v[j]);
    }
    fout<<ans;
}

int main()
{
    Read();
    Sol();
}