#include<iostream>
using namespace std;
#define LL long long
const int mod = 998244353,maxn = 2e7 + 10;
int sq(int x,int m){
	return 1ll * x * x % m;
}
int qp(LL a,int k){
	LL ans = 1;
	while(k)
	{
		if(k&1) ans  = ans * a % mod;
		a = a * a % mod;
		k >>= 1;
	}
	return ans;
}
bool num[maxn];
int prime[maxn],sm[maxn],cnt,t[maxn],s[maxn],sv[maxn],inv[maxn];
int main(){
	int n,k;
	cin >> n >> k;
	for(int i = 2;i <= n;i++){
		if(!num[i])prime[++cnt] = i;
		for(int j = 1;j <= cnt && i * prime[j] <= n;j++){
            num[i*prime[j]] = 1;
            sm[i*prime[j]] = prime[j];
            if(!(i % prime[j]))break;
        }
	}
	for(int i = 1;i <= n;i++)
		if(!num[i])t[i] = qp(i,k);
		else t[i] = 1ll * t[sm[i]] * t[i/sm[i]] % mod;

	s[0] = 1;
	for(int i = 1;i <= n;i++)
		s[i] = 1ll * s[i - 1] * t[i] % mod;
	sv[n] = qp(s[n],mod - 2);
	for(int i = n;i >= 1;i--)
		sv[i - 1] = 1ll * sv[i] * t[i] % mod;
	for(int i = 1;i <= n;i++)
		inv[i] = 1ll * sv[i] * s[i - 1] % mod;
	int ans = 0,x = 1;
	for(int i = 1;i <= n;i++){
		x = 1ll * x * i % mod;
		ans = (ans + 1ll * x * inv[i]) % mod;
	}
	cout << ans;
}