#include <cstdio>

#include <cstring>

#include <iostream>

#include <algorithm>

using namespace std;

const int maxn=50010;

typedef long long ll;

int n,m,L,ans;

int Log[maxn],v[maxn];

struct SA

{

	int r[maxn],ra[maxn],rb[maxn],st[maxn],sa[maxn],f[maxn][20],h[maxn],rank[maxn];

	void getsa()

	{

		int i,j,k,p,*x=ra,*y=rb;

		for(i=0;i<n;i++)	st[x[i]=r[i]]++;

		for(i=1;i<m;i++)	st[i]+=st[i-1];

		for(i=n-1;i>=0;i--)	sa[--st[x[i]]]=i;

		for(j=p=1;p<n;j<<=1,m=p)

		{

			for(p=0,i=n-j;i<n;i++)	y[p++]=i;

			for(i=0;i<n;i++)	if(sa[i]>=j)	y[p++]=sa[i]-j;

			for(i=0;i<m;i++)	st[i]=0;

			for(i=0;i<n;i++)	st[x[y[i]]]++;

			for(i=1;i<m;i++)	st[i]+=st[i-1];

			for(i=n-1;i>=0;i--)	sa[--st[x[y[i]]]]=y[i];

			for(swap(x,y),x[sa[0]]=0,i=p=1;i<n;i++)

				x[sa[i]]=(y[sa[i]]==y[sa[i-1]]&&y[sa[i]+j]==y[sa[i-1]+j])?p-1:p++;

		}

		for(i=1;i<n;i++)	rank[sa[i]]=i;

		for(i=k=0;i<n-1;h[rank[i++]]=k)

			for(k?k--:0,j=sa[rank[i]-1];r[i+k]==r[j+k];k++);

	}

	void getf()

	{

		int i,j;

		for(i=1;i<=n;i++)	f[i][0]=h[i];

		for(j=1;(1<<j)<=n;j++)	for(i=0;i+(1<<j)-1<=n;i++)	f[i][j]=min(f[i][j-1],f[i+(1<<j-1)][j-1]);

	}

	int getlcp(int a,int b)

	{

		if(b>n||a<0)	return 0;

		a=rank[a],b=rank[b];

		if(a>b)	swap(a,b);

		a++;

		int k=Log[b-a+1];

		return min(f[a][k],f[b-(1<<k)+1][k]);

	}

}A,B;

struct node

{

	ll val;

	int org;

}num[maxn];

bool cmp(node a,node b)

{

	return a.val<b.val;

}

int rd()

{

	int ret=0,f=1;	char gc=getchar();

	while(gc<'0'||gc>'9')	{if(gc=='-')f=-f;	gc=getchar();}

	while(gc>='0'&&gc<='9')	ret=ret*10+gc-'0',gc=getchar();

	return ret*f;

}

void solve(int siz)

{

	int i,j,a,b,l,r;

	for(i=0;i+L+siz<n;i+=siz)

	{

		j=i+siz+L;

		if(A.r[i]!=A.r[j])	continue;

		a=min(siz,A.getlcp(i,j)),b=min(siz-1,B.getlcp(n-i,n-j));

		if(a+b>=siz)	ans+=a+b+1-siz;

	}

}

int main()

{

	n=rd(),L=rd();

	int i;

	v[0]=rd();

	for(i=1;i<n;i++)	v[i]=rd(),num[i].org=i,num[i].val=v[i]-v[i-1];

	sort(num+1,num+n,cmp);

	num[0].val=-1ll<<60;

	for(i=1;i<n;i++)

	{

		if(num[i].val>num[i-1].val)	m++;

		A.r[num[i].org-1]=m,B.r[n-num[i].org-1]=m;

	}

	m++;

	for(i=2;i<=n;i++)	Log[i]=Log[i>>1]+1;

	A.getsa(),B.getsa(),A.getf(),B.getf(),n--;

	for(i=1;i*2+L<=n;i++)	solve(i);

	printf("%d",ans);

	return 0;

}