#include <bits/stdc++.h>
#define ll long long
#define lli long long int
#define ld long double
#define ull unsigned long long
#define pb push_back
#define freo(task) if(fopen(task".inp", "r")){ freopen(task".inp", "r", stdin); freopen(task".out", "w", stdout); }
#define SZ(x) ((int)(x.size()))
#define FOR(i, a, b) for(int i=(a); i<=(b); i++)
#define FORD(i, a, b) for(int i=(a); i>=(b); i--)
#define bit(x, i) ((x >> i) & 1)
#define oo 1e18
#define debug cout<<"VUDEPTRAI\n";
using namespace std;
mt19937 rd(chrono::steady_clock::now().time_since_epoch().count());
ll rand(ll l, ll r) { assert(l <= r); return uniform_int_distribution<ll>(l, r)(rd); }
int n, k, dp[35][35][2];
void get(int n, vector<int> &digit){
while(n){
digit.pb(n&1);
n>>=1;
}
}
lli digitsolve(int i, int sum, bool tight, vector<int> &digit, int k){
if(i<0)
return sum==k;
if(!tight && dp[i][sum][tight]!=-1)
return dp[i][sum][tight];
lli ans=0;
int maxk=(tight ? digit[i] : 1);
FOR(k, 0, 1){
bool newtight=tight && (k==maxk);
ans+=digitsolve(i-1, sum+(k==0), newtight, digit, k);
}
if(!tight)
dp[i][sum][tight]=ans;
return ans;
}
int main()
{
ios::sync_with_stdio(false);
cin.tie(nullptr);
// freo("");
while(cin>>n>>k){
memset(dp, -1, sizeof(dp));
vector<int> digitN;
get(n, digitN);
cout<<digitsolve(digitN.size()-1, 0, 1, digitN, k)<<'\n';
}
// for(int c:digitN)
// cout<<c<<" ";
// cerr << "\n" << 1.0 * clock() / CLOCKS_PER_SEC << "s ";
return 0;
}
/*
*/
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CiNkZWZpbmUgbGwgbG9uZyBsb25nCiNkZWZpbmUgbGxpIGxvbmcgbG9uZyBpbnQKI2RlZmluZSBsZCBsb25nIGRvdWJsZQojZGVmaW5lIHVsbCB1bnNpZ25lZCBsb25nIGxvbmcKI2RlZmluZSBwYiBwdXNoX2JhY2sKI2RlZmluZSBmcmVvKHRhc2spIGlmKGZvcGVuKHRhc2siLmlucCIsICJyIikpeyBmcmVvcGVuKHRhc2siLmlucCIsICJyIiwgc3RkaW4pOyBmcmVvcGVuKHRhc2siLm91dCIsICJ3Iiwgc3Rkb3V0KTsgfQojZGVmaW5lIFNaKHgpICgoaW50KSh4LnNpemUoKSkpCiNkZWZpbmUgRk9SKGksIGEsIGIpIGZvcihpbnQgaT0oYSk7IGk8PShiKTsgaSsrKQojZGVmaW5lIEZPUkQoaSwgYSwgYikgZm9yKGludCBpPShhKTsgaT49KGIpOyBpLS0pCiNkZWZpbmUgYml0KHgsIGkpICgoeCA+PiBpKSAmIDEpCiNkZWZpbmUgb28gMWUxOAojZGVmaW5lIGRlYnVnIGNvdXQ8PCJWVURFUFRSQUlcbiI7CnVzaW5nIG5hbWVzcGFjZSBzdGQ7Cm10MTk5MzcgcmQoY2hyb25vOjpzdGVhZHlfY2xvY2s6Om5vdygpLnRpbWVfc2luY2VfZXBvY2goKS5jb3VudCgpKTsKbGwgcmFuZChsbCBsLCBsbCByKSB7IGFzc2VydChsIDw9IHIpOyByZXR1cm4gdW5pZm9ybV9pbnRfZGlzdHJpYnV0aW9uPGxsPihsLCByKShyZCk7IH0KaW50IG4sIGssIGRwWzM1XVszNV1bMl07CnZvaWQgZ2V0KGludCBuLCB2ZWN0b3I8aW50PiAmZGlnaXQpewogICAgd2hpbGUobil7CiAgICAgICAgZGlnaXQucGIobiYxKTsKICAgICAgICBuPj49MTsKICAgIH0KfQpsbGkgZGlnaXRzb2x2ZShpbnQgaSwgaW50IHN1bSwgYm9vbCB0aWdodCwgdmVjdG9yPGludD4gJmRpZ2l0LCBpbnQgayl7CiAgICBpZihpPDApCiAgICAgICAgcmV0dXJuIHN1bT09azsKICAgIGlmKCF0aWdodCAmJiBkcFtpXVtzdW1dW3RpZ2h0XSE9LTEpCiAgICAgICAgcmV0dXJuIGRwW2ldW3N1bV1bdGlnaHRdOwogICAgbGxpIGFucz0wOwogICAgaW50IG1heGs9KHRpZ2h0ID8gZGlnaXRbaV0gOiAxKTsKICAgIEZPUihrLCAwLCAxKXsKICAgICAgICBib29sIG5ld3RpZ2h0PXRpZ2h0ICYmIChrPT1tYXhrKTsKICAgICAgICBhbnMrPWRpZ2l0c29sdmUoaS0xLCBzdW0rKGs9PTApLCBuZXd0aWdodCwgZGlnaXQsIGspOwogICAgfQogICAgaWYoIXRpZ2h0KQogICAgICAgIGRwW2ldW3N1bV1bdGlnaHRdPWFuczsKICAgIHJldHVybiBhbnM7Cn0KaW50IG1haW4oKQp7CiAgICBpb3M6OnN5bmNfd2l0aF9zdGRpbyhmYWxzZSk7CiAgICBjaW4udGllKG51bGxwdHIpOwovLyAgICBmcmVvKCIiKTsKICAgIHdoaWxlKGNpbj4+bj4+ayl7CiAgICAgICAgbWVtc2V0KGRwLCAtMSwgc2l6ZW9mKGRwKSk7CiAgICAgICAgdmVjdG9yPGludD4gZGlnaXROOwogICAgICAgIGdldChuLCBkaWdpdE4pOwogICAgICAgIGNvdXQ8PGRpZ2l0c29sdmUoZGlnaXROLnNpemUoKS0xLCAwLCAxLCBkaWdpdE4sIGspPDwnXG4nOwogICAgfQovLyAgICBmb3IoaW50IGM6ZGlnaXROKQovLyAgICAgICAgY291dDw8Yzw8IiAiOwovLyAgICBjZXJyIDw8ICJcbiIgPDwgMS4wICogY2xvY2soKSAvIENMT0NLU19QRVJfU0VDIDw8ICJzICI7CiAgICByZXR1cm4gMDsKfQovKgoKCgoqLwo=