#include"bits/stdc++.h"
#define endl '\n'
using ll=long long;
using namespace std;
#define int ll
constexpr int N=10000000+5,mod=998244353;
ll fact[N],inv[N];
ll qpow(ll a,ll b,ll p){
	a%=p;
	ll ans=1%p;
	for(;b;b>>=1){
		if(b&1)
			ans=ans*a%p;
		a=a*a%p;
	}
	return ans;
}
ll inverse(ll a,ll m){
	return qpow(fact[a],m-2,m);
//	if(a==0)
//		return qpow(fact[0],m-2,m);
//	return inv[a];
}
ll C(ll n,ll r,ll m){
	if(r>n)
		return 0;
	return ((fact[n]*inverse(r,m))%m*inverse(n-r,m)%m);
}
ll Lucas(ll n,ll r,ll m){
	if(r==0)
		return 1;
	return C(n%m,r%m,m)*Lucas(n/m,r/m,m)%m;
}
void init(ll n,ll p){
	fact[0]=1;
	for(int i=1;i<=n;i++)
		fact[i]=(fact[i-1]*i)%p;
	inv[1]=1;
	for(int i=2;i<=N-5;i++){
		inv[i]=(mod-mod/i)*inv[mod%i]%mod;
	}
}
void slove(){
	int n;
	cin>>n;
	init(n,mod);
	ll ans=0;
	if(n==1){
		cout<<1<<endl;
		return;
	}
	ll tot=1;
	int j=n-1;
	for(int i=1;i<=n/2;i++){
//		ans+= Lucas(n-i,i-1,mod)*fact[i-1]%mod  *fact[n-i]%mod;
//		cout<<Lucas(n-i,i-1,mod)*fact[i-1]%mod  *fact[n-i]%mod<<endl;
//		ans%=mod;
		for(;j>=n-2*i+2;j--){
			tot*=j;
			tot%=mod;
		}
//		cout<<tot<<endl;
		ans+=tot*fact[n-i];
		ans%=mod;
		tot=tot*inv[n-i];
		tot%=mod;
	}
	cout<<ans<<endl;
}
signed main(){
	cin.tie(nullptr)->sync_with_stdio(0);
	int _=1;
//	cin>>_;
	while(_--){
		slove();
	}
	return 0;
}