#include<bits/stdc++.h>
using namespace std;
#define rep(i,n) for(ll i=0;i<n;i++)
#define repl(i,l,r) for(ll i=(l);i<(r);i++)
#define per(i,n) for(ll i=(n)-1;i>=0;i--)
#define perl(i,r,l) for(ll i=r-1;i>=l;i--)
#define fi first
#define se second
#define pb push_back
#define ins insert
#define pqueue(x) priority_queue<x,vector<x>,greater<x>>
#define all(x) (x).begin(),(x).end()
#define CST(x) cout<<fixed<<setprecision(x)
#define rev(x) reverse(x);
using ll=long long;
using vl=vector<ll>;
using vvl=vector<vector<ll>>;
using pl=pair<ll,ll>;
using vpl=vector<pl>;
using vvpl=vector<vpl>;
const ll MOD=1000000007;
const ll MOD9=998244353;
const int inf=1e9+10;
const ll INF=4e18;
const ll dy[8]={-1,0,1,0,1,1,-1,-1};
const ll dx[8]={0,-1,0,1,1,-1,1,-1};
template <typename T> inline bool chmax(T &a, T b) {
  return ((a < b) ? (a = b, true) : (false));
}
template <typename T> inline bool chmin(T &a, T b) {
  return ((a > b) ? (a = b, true) : (false));
}

class osak{
    vector<long long> res;
    public:
    vector<long long> prime;
    osak(long long n){//sieve(n),O(N);
        res=vector<long long>(n);
        iota(res.begin(), res.end(), 0);
        for (int i = 2; i*i < n; ++i) {
            if (res[i] < i) continue;
            for (int j = i*i; j < n; j += i)
            if (res[j] == j) res[j] = i;
        }
        for(int i = 2; i < n; ++i){
            if(res[i]==i)prime.emplace_back(i);
        }
    }

    map<long long,long long> factor(int n) {
        map<long long,long long> factor;
        while (n > 1) {
            factor[res[n]]++;
            n /= res[n];
        }
        return factor;
    }

    vector<long long> divisor(int N){//O(div.size())
        map<long long,long long> facs=factor(N);
        vector<long long> ret={1};
        for(auto p:facs){
            ll range=ret.size();
            ll now=1;
            for(int i=0;i<p.se;i++){
                now*=p.fi;
                for(int j=0;j<range;j++){
                    ret.emplace_back(ret[j]*now);
                }
            }
        }
        sort(ret.begin(),ret.end());
        return ret;
    }
};

int main(){
  ll n,k;cin >> n >>k;
  osak os(100010);
  vl a(n);rep(i,n)cin >> a[i];
  set<map<ll,ll>> ans;
  rep(bit,1<<n){
    if(__builtin_popcount(bit)<k)continue;
    ll ret=0;rep(i,n)if(bit&(1<<i))ret+=a[i];
    ans.insert(os.factor(ret));
    map<ll,ll> now;
    rep(i,n)if(bit&(1<<i)){
      auto p=os.factor(a[i]);
      for(auto d:p){
        now[d.fi]+=d.se;
      }
    }
    ans.insert(now);
  }
  cout << ans.size() <<endl;
}