#############################
#############
cnb_max=10**6
mod=998244353
#############

kai=[1]*(cnb_max+1)
rkai=[1]*(cnb_max+1)
for i in range(cnb_max):
    kai[i+1]=kai[i]*(i+1)%mod

rkai[cnb_max]=pow(kai[cnb_max],mod-2,mod)
for i in range(cnb_max):
    rkai[cnb_max-1-i]=rkai[cnb_max-i]*(cnb_max-i)%mod

def cnb(x,y):
    if y>x:
        return 0
    if x<0:return 0
    if y<0:return 0
    return (kai[x]*rkai[y]%mod)*rkai[x-y]%mod


def inv(n):
    return kai[n-1]*rkai[n]%mod

##################################


n=int(input())
def naive(n):
    def f(s):
        ans=0
        for i in range(1,n):
            if s[i]==1:
                ans+=1
                s[i+1]^=1
        return ans
    ans=0
    for bit in range(2**n):
        s=[0]*(n+1)
        for i in range(n):
            if (bit>>i)&1:s[i+1]=1
        if sum(s)%2==0:ans+=f(s)**2
        ans%=mod
    return ans

def sol1(n):
    ans=0
    for k in range(n):
        ans+=pow(k,2,mod)*cnb(n-1,k)
        ans%=mod
    return ans

print(sol1(n))