#line 2 "/home/sakflat/CP/_library/cpp/template/template.cpp"

//yukicoder@cpp17

#include <iostream>
#include <iomanip>

#include <algorithm>

#include <cmath>
#include <cctype>
#include <climits>
#include <cassert>

#include <string>
#include <vector>
#include <set>
#include <stack>
#include <queue>
#include <map>

#include <random>

#include <bitset>

#include <complex>

#include <utility>

#include <numeric>

#include <functional>


using namespace std;
using ll = long long;
using P = pair<ll,ll>;

const ll MOD = 998244353;
const ll MODx = 1000000007;
const int INF = (1<<30)-1;
const ll LINF = (1LL<<62LL)-1;
const double EPS = (1e-10);

P ar4[4] = {{0,1},{0,-1},{1,0},{-1,0}};
P ar8[8] = {{-1,-1},{-1,0},{-1,1},{0,-1},{0,1},{1,-1},{1,0},{1,1}};




template <typename T> vector<T> make_vector(size_t a, T b) { return vector<T>(a, b); }
template <typename... Ts> auto make_vector(size_t a, Ts... ts) { return vector<decltype(make_vector(ts...))>(a, make_vector(ts...)); }
 
 /*
確認ポイント
cout << fixed << setprecision(n) << 小数計算//n桁の小数表記になる

計算量は変わらないが楽できるシリーズ
min(max)_element(iter,iter)で一番小さい(大きい)値のポインタが帰ってくる
count(iter,iter,int)でintがiterからiterの間にいくつあったかを取得できる
*/

/*
function corner below
*/


/*
Function corner above
*/

/* comment outed because can cause bugs
__attribute__((constructor))
void initial() {
 cin.tie(0);
 ios::sync_with_stdio(false);
}
*/
#line 2 "/home/sakflat/CP/_library/cpp/template/basic.cpp"

int main(){
  long long n,p;cin>>n>>p;
  unordered_map<long long, long long> X[100];
  vector<long long> A(n);
  long long mx = 0;
  for(int i = 0; n > i; i++){
    cin>>A[i];
    mx = max(mx,A[i]);
  }
  for(int i = 0; n > i; i++){
    long long nw = p;
    long long bas = 0;
    while(nw <= mx){
      X[bas][A[i]%nw]++;
      bas++;
      nw *= p;
    }
    X[bas][A[i]%nw]++;
  }
  long long ans = 0;
  int z = 0;
  for(int i = 0; n > i; i++){
    long long cur = p;
    long long nw = 0;
    while(X[nw][A[i]%cur]){
      ans += X[nw][A[i]%cur];
      z++;
      cur *= p;
      nw++;
      
    }
  }
  cout << (ans-z)/2 << endl;

  return 0;
}