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

int n, K;
vector<int> a;  // a[0..n-1] da nen thanh chi so 0..m-1
int m;          // so gia tri khac nhau

// Đếm đoạn [i..j] có ít nhất một giá trị xuất hiện >= K lần.

// Sub 1: vét cạn — với mỗi điểm đầu i, mở rộng j và cập nhật số lần xuất hiện, kiểm tra max >= K. O(n^2). Dùng khi n <= 1000.
void sub1() {
    vector<int> cnt(m, 0);
    long long ans = 0;
    for (int i = 0; i < n; i++) {
        fill(cnt.begin(), cnt.end(), 0);
        int mx = 0;
        for (int j = i; j < n; j++) {
            mx = max(mx, ++cnt[a[j]]);
            if (mx >= K) ans++;
        }
    }
    cout << ans << "\n";
}

// Sub 2: đếm phần bù rồi trừ. Đoạn "xấu" là đoạn mà mọi giá trị đều xuất hiện < K lần.
// Với mỗi đầu phải r, giữ cửa sổ [l..r] nhỏ nhất sao cho mọi giá trị trong đó xuất hiện < K lần (hai con trỏ).
// Khi đó có r - l + 1 đoạn xấu kết thúc tại r. Đáp án = n(n+1)/2 - tổng đoạn xấu. O(n log n).
void sub2() {
    vector<int> cnt(m, 0);
    long long bad = 0;
    int l = 0;
    for (int r = 0; r < n; r++) {
        cnt[a[r]]++;
        while (cnt[a[r]] >= K) {  // bỏ dần phần đầu cho đến khi giá trị a[r] còn < K lần
            cnt[a[l]]--;
            l++;
        }
        bad += r - l + 1;
    }
    long long total = (long long)n * (n + 1) / 2;
    cout << total - bad << "\n";
}

int main() {
    freopen("cau3.inp", "r", stdin);
    freopen("cau3.out", "w", stdout);
    ios::sync_with_stdio(false);
    cin.tie(nullptr);
    cin >> n >> K;
    vector<long long> raw(n);
    for (auto &x : raw) cin >> x;
    // nén giá trị về 0..m-1
    vector<long long> vals = raw;
    sort(vals.begin(), vals.end());
    vals.erase(unique(vals.begin(), vals.end()), vals.end());
    m = vals.size();
    a.resize(n);
    for (int i = 0; i < n; i++)
        a[i] = lower_bound(vals.begin(), vals.end(), raw[i]) - vals.begin();
    if (n <= 1000) sub1();  // dữ liệu nhỏ: vét cạn
    else sub2();            // hai con trỏ
    return 0;
}