#include<cstdio>
#include<cstring>
#include<algorithm>
#define ll long long
#define mod 924844033
#define N 4010
using namespace std;
int n, k, jc[N], inv[N], L[N], f[N], g[N], m, top, x, ans;
inline int C(int n, int m){return (ll)jc[n]*inv[m]%mod*inv[n-m]%mod;}
int main(){
	scanf("%d%d", &n, &k); m=k*2;
	jc[0]=1; for(int i=1; i<=n; i++)jc[i]=(ll)jc[i-1]*i%mod;
	inv[0]=inv[1]=1; for(int i=2; i<=n; i++)inv[i]=(ll)(mod-mod/i)*inv[mod%i]%mod;
	for(int i=1; i<=n; i++)inv[i]=(ll)inv[i-1]*inv[i]%mod;
	for(int i=1; i<=k; i++)L[i*2-1]=L[i*2]=(n-i)/k;
	memset(f, 0, sizeof(f)); f[0]=1; top=0;
	for(int i=1; i<=m; i++){
		memcpy(g, f, sizeof(g)); memset(f, 0, sizeof(f));
		for(int j=0; j<=(L[i]+1)/2; j++){
			x=C(L[i]-j+1, j);
			for(int ii=0; ii<=top; ii++)f[ii+j]=(f[ii+j]+(ll)g[ii]*x%mod)%mod;
		}
		top+=(L[i]+1)/2;
	}
	ans=0;
	for(int i=0; i<=n; i++)
		if(i&1)ans=(ans-(ll)f[i]*jc[n-i]%mod+mod)%mod;
		else ans=(ans+(ll)f[i]*jc[n-i]%mod)%mod;
	printf("%d", ans);
	return 0;
}