#define MD 998244353
Mint d[5001][5002],z;
d[0][0]=1;
ll@n,@k;
rep(e,k){
	rep(x,e&1,n+1,2){
		if(x) d[e+1][x-1]+=d[e][x]*x;
		d[e+1][x+1]+=d[e][x]*(n-x);
	}
}
rep(x,k&1,n+1,2){
	z+=d[e][x]*((k-x)/2);
}
wt(z/Mint(n)**k+n);