#include<bits/stdc++.h>
#define LL long long
#define LLL __int128
#define uint unsigned
#define ldb long double
#define uLL unsigned long long
using namespace std;
const int N=1e5+5,Mod=998244353;
int n,m,ans;
int f[20][N];
vector<int>frc({1,1}),inv({0,1}),ivf({1,1});
inline int qpow(int x,int y,int z=1){
	for(;y;(y>>=1)&&(x=(LL)x*x%Mod))if(y&1)z=(LL)z*x%Mod;return z;
}
inline void Init(const int&n){
	for(int i=frc.size();i<=n;++i)
		frc.emplace_back((LL)frc.back()*i%Mod),
		inv.emplace_back(Mod-Mod/i*(LL)inv[Mod%i]%Mod),
		ivf.emplace_back((LL)ivf.back()*inv.back()%Mod);
}
inline int Binom(const int&n,const int&m){
	if(n<m||m<0)return 0;
	return Init(n),(LL)frc[n]*ivf[m]%Mod*ivf[n-m]%Mod;
}
inline int add(int x,const int&y){
    return ((x+=y)-Mod)>=0?x-Mod:x;
}
inline int sub(int x,const int&y){
    return (x-=y)<0?x+Mod:x;
}
signed main(){
	cin.tie(0)->sync_with_stdio(0);
	cin>>m>>n;
	for(int i=1;i<=m;++i)f[1][i]=1;
	for(int k=1;k<=min(n,18);++k){
		for(int i=1;i<=m;++i)ans=(ans+1ll*f[k][i]*Binom(m/i-1,n-k))%Mod;
		for(int i=1;i<=m;++i)for(int j=i+i;j<=m;j+=i)f[k+1][j]=add(f[k+1][j],f[k][i]);
	}
	ans=(1ll*Binom(m,n)*n+Mod-ans)%Mod;
	cout<<ans<<'\n';
	return 0;
}