#include<bits/stdc++.h>
#define il inline
#define ui unsigned int
#define ll long long
#define ull unsigned ll
#define lll __int128
#define db double
#define ldb long double
#define pii pair<int,int>
#define vi vector<int>
#define vpii vector<pii>
#define fir first
#define sec second
#define gc getchar
#define pc putchar
#define mst(a,x) memset(a,x,sizeof a)
#define mcp(a,b) memcpy(a,b,sizeof b)
#define pb push_back
#define lb lower_bound
#define ub upper_bound
#define pct __builtin_popcount
using namespace std;
const int N=5010,INF=0x3f3f3f3f,MOD=998244353; const ll INFll=0x3f3f3f3f3f3f3f3f;
il int rd() {int x=0,f=1; char ch=gc(); while(ch<'0'||ch>'9') {if(ch=='-') f=-1; ch=gc();} while(ch>='0'&&ch<='9') x=x*10+ch-'0',ch=gc(); return x*f;}
il ll rdll() {ll x=0; int f=1; char ch=gc(); while(ch<'0'||ch>'9') {if(ch=='-') f=-1; ch=gc();} while(ch>='0'&&ch<='9') x=x*10+ch-'0',ch=gc(); return x*f;}
il void wr(int x) {if(x==INT_MIN) return printf("-2147483648"),void(); if(x<0) return pc('-'),wr(-x); if(x<10) return pc(x+'0'),void(); wr(x/10),pc(x%10+'0');}
il void wrll(ll x) {if(x==LONG_LONG_MIN) return printf("-9223372036854775808"),void(); if(x<0) return pc('-'),wrll(-x); if(x<10) return pc(x+'0'),void(); wrll(x/10),pc(x%10+'0');}
il void wr(int x,char *s) {wr(x),printf("%s",s);}
il void wrll(ll x,char *s) {wrll(x),printf("%s",s);}
il int vmod(int x) {return x>=MOD?x-MOD:x;}
il int vadd(int x,int y) {return vmod(x+y);}
il int vsub(int x,int y) {return vmod(x-y+MOD);}
il int vmul(int x,int y) {return 1ll*x*y%MOD;}
il int qpow(int x,int y) {int res=1; for(;y;y>>=1,x=vmul(x,x)) if(y&1) res=vmul(res,x); return res;}
il void cadd(int &x,int y) {x=vmod(x+y);}
il void csub(int &x,int y) {x=vmod(x-y+MOD);}
il void cmul(int &x,int y) {x=vmul(x,y);}
il void cmax(int &x,int y) {x<y&&(x=y);}
il void cmaxll(ll &x,ll y) {x<y&&(x=y);}
il void cmin(int &x,int y) {x>y&&(x=y);}
il void cminll(ll &x,ll y) {x>y&&(x=y);}
int n,ans,fac[N],f[N],g[N],dp[N][N],C[N][N];
void sol(int l,int r) {
	mst(dp,0),dp[l][1]=1;
	for(int i=l+1;i<=r;i++) for(int j=1;j<=n;j++)
		dp[i][j]=vadd(vadd(dp[i-1][j-1],i>1?dp[i-2][j-1]:0),i>2?dp[i-3][j-1]:0);
	for(int i=1;i<=n;i++) cadd(g[i],dp[r][i]);
}
void QwQ() {
	n=rd(),fac[0]=1; for(int i=1;i<=n;i++) fac[i]=vmul(fac[i-1],i);
	for(int i=0;i<=n;i++) {C[i][0]=1; for(int j=1;j<=i;j++) C[i][j]=vadd(C[i-1][j-1],C[i-1][j]);}
	for(int l=1;l<=3;l++) for(int r=n-2;r<=n;r++) if(n+l-r<=3&&l<=r) sol(l,r);
	for(int i=1;i<=n;i++) f[i]=vmul(g[i],qpow(C[n][i],MOD-2)),cadd(ans,vmul(i,vsub(f[i],f[i-1])));
	wr(ans,"\n");
}
signed main() {
//	freopen("color.in","r",stdin),freopen("color.out","w",stdout);
	int T=1; while(T--) QwQ();
}