MOD=10**9+7
cnt=0; sum=0; prev=nil; can=true; h=Hash.new(0)
def gs() gets.chomp end
def gi() gets.to_i end
def gsmi() gets.chomp.split.map(&:to_i) end

def desc(ar) ar.sort!{|x,y|y<=>x} end
def min(a,b) a<=b ? a : b end
def max(a,b) a>=b ? a : b end
def sum(ar) ar.inject(:+) end

def C(a,b) b==0||a==b ? 1 : (b=a-b if a/2<b;(a-b+1..a).inject(:*)/(1..b).inject(:*)) end

def puts_yesno(can) puts(can ? 'Yes' : 'No') end
def putsend(s) puts s; exit end
def debug(k,v) puts "#{k}:#{v}" end
########### ( ˘ω˘ )ｽﾔｧ… ###########
n,m=gsmi
a=gsmi.sort

# "増える量がX以上となるのがmとなる" Xを二分探索で探す O(N(logN)^2)
# lは条件を満たす、rは条件を満たさない(X=lとなる)
l=0
r=2*10**5+1
while l+1!=r do
  cen=(l+r)/2
  #puts "l:#{l},r:#{r},cen:#{cen}"
  # TODO必要ならbreak文
  cnt=0
  n.times do |i|
    i2=cen-a[i]
    idx=a.bsearch_index{|x|x>=i2}
    next if idx.nil?

    c=(n-1)-idx+1
    cnt+=c
    # M以上組み合わせがあるならbreak
    break if cnt>=m
  end

  if cnt>=m
    #OKなので右へ
    l=cen
  else
    r=cen
  end
end

# 累積和
ruisum=[0]
n.times do |i|
  ruisum<< ruisum[-1]+a[i]
end
#puts ruisum.to_s

# 合計を求める
sum=0
cnt=0
n.times do |i|
  i2=l-a[i]
  idx=a.bsearch_index{|x|x>=i2}
  next if idx.nil?

  c=(n-1)-idx+1
  cnt+=c

  rui=ruisum[n]-ruisum[idx]
  s=c*a[i]+rui
  sum+=s
end

# 余分に加えた分を補正
puts sum-l*(cnt-m)
