n,p=gets.split.map(&:to_i)
mod=10**9+7
s=0
(1..nil).each do |i|
  break if n<p**i
  s+=n/(p**i)
end
nd=1
(1..n).each do |i|
  nd=nd*i%mod
end
(1..n).each do |i|
  nd=nd.pow(i,mod)
end
puts (s*nd)%mod