#include <iostream>
using namespace std;
int main() {
    unsigned long long n; cin >> n;
    int s; cin >> s;
    int p[s];
    unsigned long long f = 1;
    for (int i = 2; i < s; i++) f *= i;
    for (int i = 0; i < s; i++) {
        p[i] = n / f;
        n %= f;
        if (i < s - 1) f /= (s - i - 1);
    }
    for (int i = s-1; i >= 0; i--)
        for (int j = i+1; j < s; j++)
            if (p[i] <= p[j]) p[j]++;
    int q[s];
    for (int i = 0; i < s; i++) q[p[i]] = i;
    unsigned long long ans = 0;
    for (int i = 2; i < s; i++) f *= i;
    for (int i = 0; i < s; i++) {
        int k = q[i];
        for (int j = 0; j < i; j++) if (q[i] > q[j]) k--;
        ans += k * f;
        if (i < s - 1) f /= (s - i - 1);
    }
    cout << ans << endl;
}