#include <iostream>
#include <string>
#include <algorithm>
#include <vector>
#include <array>
#include <queue>
#include <deque>
#include <map>
#include <set>
#include <sstream>
#include <cstdio>
#include <cstring>
#include <cmath>
#include <list>
#include <numeric>
#include <stack>
#include <iomanip>
#include <random>
#include <complex>
#include <functional>
#include <tuple>

using namespace std;

#define Rep(i,a,b) for(ll i = a; i < b; ++i)
#define rep(i,b) Rep(i,0,b)
#define allof(a) (a).begin(), (a).end()

#define Yes(q) ((q) ? "Yes" : "No")
#define YES(q) ((q) ? "YES" : "NO")
#define Possible(q) ((q) ? "Possible" : "Impossible")
#define POSSIBLE(q) ((q) ? "POSSIBLE" : "IMPOSSIBLE")

using ll = long long;

constexpr int inf = 1e9 + 7;
constexpr ll infll = 1ll << 60ll;
constexpr ll mod = 1e9 + 7;
// 0~3までは右左下上 4~7までは斜め
constexpr int dx[] = { 1, 0, -1, 0, 1, 1, -1, -1 };
constexpr int dy[] = { 0, -1, 0, 1, 1, -1, -1, 1 };

namespace {
    template<typename T> void chmax(T& a, T b) { a = std::max(a, b); }
    template<typename T> void chmin(T& a, T b) { a = std::min(a, b); }
    template<typename T> void chadd(T& a, T b) { a = a + b; }

    void Cout(long long x, const char* end = "\n") { std::cout << x << end; }
    template <typename T> void Cout(const T& x, const char* end = "\n") { std::cout << x << end; }
    template <typename T> void Cout(const std::vector<T>& x, const char* sep = " ", const char* end = "\n") { for (std::size_t i = 0, sz = x.size(); i < sz; i++) { std::cout << x[i] << (i == sz - 1 ? end : sep); } }

    // 標準入出力
    struct inp {
        std::size_t sz;
        inp(std::size_t _sz = 1) : sz(_sz) {}
        template <typename T> operator T () const { T a; std::cin >> a; return a; }
        template <typename T> operator std::vector<T>() const { std::vector<T> a(sz); for (std::size_t i = 0; i < sz; i++) std::cin >> a[i]; return a; }
    };

    // 2次元用の標準入出力
    template<typename T>
    struct inpn {
        std::size_t szi, szj;
        inpn(std::size_t _szi, std::size_t _szj) : szi(_szi), szj(_szj) {}
        operator std::vector<std::vector<T>>() const {
            std::vector<std::vector<T>> a(szi, std::vector<T>(szj));
            for (std::size_t i = 0; i < szi; ++i)
                for (std::size_t j = 0; j < szj; ++j) cin >> a[i][j];
            return a;
        }
    };

    inp inp1; // input one

    // 二分探索を行うライブラリ
    // @author tada
    // T は返り値の型
    template<typename T>
    T BinarySearch(T left, T right, std::function<bool(T)> Check) {
        while (right - left > 1) {
            T mid = (right + left) / 2;
            if (Check(mid)) left = mid; // 右を探す
            else right = mid;                       // 左を探す
        }
        // mid = left, mid = right - 1 となっている
        return left;
    }
}

int main() {

    ll n, m;
    cin >> n >> m;
    vector<ll> a = inp(n);

    // まったく同じ手でできない

    // m回握手

    // それぞれの手は最大で　min(2 * n + 1, m + 1) 回できる

    // １回あたりの幸福度が x を超えるもののみ選ぶ
    // その数が m 以上となる最小の値

    sort(allof(a));

    // 累積和
    vector<ll> sum(n + 1, 0LL);
    rep(i, n) sum[i + 1] = sum[i] + a[i];

    ll x = BinarySearch<ll>(2, 1e6, [&](ll mid)->bool {
        ll num = 0LL;
        // mid以上の幸福度となるペアの場合の数を求める
        rep(i, n) {
            auto itr = lower_bound(allof(a), mid - a[i]);
            ll dist = a.end() - itr;
            chmin(dist, n - i);
            num += dist * 2;
            if (dist == n - i) --num;
        }
        return num >= m;
        });


    // 幸福度の和がx以上となるペアを上からm個選ぶ
    ll ans = 0LL;
    ll num = 0LL;
    rep(i, n) {
        auto itr = lower_bound(allof(a), x - a[i]);
        ll dist = a.end() - itr;
        chmin(dist, n - i);
        ll tmp = dist * 2;

        if (dist == n - i) {
            --tmp;
            ans += (sum[n] - sum[i + 1]) * 2;
            ans += a[i] * (tmp + 1);
        }
        else {
            ans += (sum[n] - sum[n - dist]) * 2;
            ans += a[i] * tmp;
        }
        num += tmp;
    }
    if (num > m) {
        ans -= (num - m) * x;
    }

    Cout(ans);

    // 実装が大変すぎる

    return 0;
}

Measured memory_bytes: 1792