#include<bits/stdc++.h>
using namespace std;
constexpr int maxn=5005;
typedef long long ll;
constexpr ll mod=998244353;
int f[maxn][maxn];
ll qpow(ll a,int b=mod-2){
    ll ans=1;
    while(b){
        if(b&1) ans=ans*a%mod;
        a=a*a%mod,b>>=1;
    }
    return ans;
}
ll fac[maxn],inv[maxn];
inline void reduce(int &x){(x>=mod)&&(x-=mod);}
inline ll C(int n,int m){if(n<m||n<0||m<0) return 0;return fac[n]*inv[m]%mod*inv[n-m]%mod;}
int main(){
    int n;cin>>n;n--;
    if(n==2) return puts("1"),0;
    for(int i=fac[0]=1;i<=n;i++) fac[i]=fac[i-1]*i%mod;
    inv[n]=qpow(fac[n]);
    for(int i=n;i>=1;i--) inv[i-1]=inv[i]*i%mod;
    f[0][0]=1;   
    for(int i=0;i<=n;i++)
    for(int j=0;j<=i;j++){
        for(int k:{1,2,3}) reduce(f[i+k][j+1]+=f[i][j]);
    }
    ll ans=0;
    for(int i=1;i<=n;i++) ans+=(C(n,i)-f[n][i]-f[n-1][i]-f[n-2][i])%mod*fac[i]%mod*inv[n]%mod*fac[n-i]%mod;
    cout<<(ans%mod+2+mod)%mod<<'\n';
}