let input=readLine()!.split(separator:" ").map{Int($0)!}
var n=input[0]
let s=input[1]
var a:[Int]=[]
for i in 1...s{
  a.append(n%i)
  n/=i
  //print(n,f)
}
//print(a)
var l:[Int]=[]
for i in 1...s{
  l.append(i)
}
var perm:[Int]=[]
while !a.isEmpty{
  perm.append(l.remove(at:a.removeLast()))
}
//print(perm)
var inv=Array(repeating:0,count:s)
for i in 0..<s{
  inv[perm[i]-1]=i+1
}
//print(inv)
l=[]
var f=1
for i in 1...s{
  l.append(i)
  f*=i
}
var r=0
for i in 0..<s{
  let idx=l.firstIndex(of:inv[i])!
  f/=s-i
  r+=idx*f
  l.remove(at:idx)
}
print(r)