class Combination: def __init__(self, n_max, MOD=10 ** 9 + 7): """ PREP = O(n_max + log(MOD)) :param self.fac[n]: n! :param self.facinv[n]: 1/n! """ self.mod = MOD f = 1 self.fac = fac = [f] for i in range(1, n_max+1): f = f * i % MOD fac.append(f) f = pow(f, MOD - 2, MOD) self.facinv = facinv = [f] for i in range(n_max, 0, -1): f = f * i % MOD facinv.append(f) facinv.reverse() def __call__(self, n, r): if not 0 <= r <= n: return 0 return self.fac[n] * self.facinv[r] % self.mod * self.facinv[n-r] % self.mod def F(self, n): """ n! """ return self.fac[n] def C(self, n, r): if not 0 <= r <= n: return 0 return self.fac[n] * self.facinv[r] % self.mod * self.facinv[n-r] % self.mod def P(self, n, r): if not 0 <= r <= n: return 0 return self.fac[n] * self.facinv[n-r] % self.mod def H(self, n, r): """ (箱区別:〇 ボール区別:× 空箱:〇) 重複組み合わせ nHm """ if not 0 <= r <= n+r-1: return 0 return self.fac[n+r-1] * self.facinv[r] % self.mod * self.facinv[n-1] % self.mod def rising_factorial(self, n, r): """ 上昇階乗冪 n * (n+1) * ... * (n+r-1) """ return self.fac[n+r-1] * self.facinv[n-1] % self.mod def stirling_first(self, n, k): """ 第 1 種スターリング数 lru_cache を使うと O(nk) # k 要素を n 個の巡回列に分割する場合の数 """ if n == k: return 1 if k == 0: return 0 return (self.stirling_first(n-1, k-1) + (n-1)*self.stirling_first(n-1, k)) % self.mod def stirling_second(self, n, k): """ 第 2 種スターリング数 O(k + log(n)) """ if n == k: return 1 # n==k==0 のときのため return self.facinv[k] * sum((-1)**(k-m) * self.C(k, m) * pow(m, n, self.mod) for m in range(1, k+1)) % self.mod def grouping(self, n, k): """ (箱区別:× ボール区別:〇 空箱:×) 組み分け mSn。第二種スターリング数と添え字を交換したもの """ if n == k: return 1 # n==k==0 のときのため return self.facinv[n] * sum((-1)**(n-m) * self.C(n, m) * pow(m, k, self.mod) for m in range(1, n+1)) % self.mod def sum_groupiing(self, n, k): """ (箱区別:× ボール区別:〇 空箱:〇) 重複順列 Σ_(l=1,...,n) mSl """ return sum(self.grouping(n,m)for m in range(1, k+1)) % self.mod def balls_and_boxes(self, n, k): """ (箱区別:〇 ボール区別:〇 空箱:×) 組み分け mSn * n! O(k + log(n)) """ return sum((-1)**(n-m) * self.C(n, m) * pow(m, k, self.mod) for m in range(1, n+1)) % self.mod def bernoulli(self, n): """ ベルヌーイ数。べき乗和を求める際に必要(Faulhaber の定理。 lru_cache を使うと O(n**2 * log(mod)) """ if n == 0: return 1 if n % 2 and n >= 3: return 0 # 高速化 return (- pow(n+1, self.mod-2, self.mod) * sum(self.C(n+1, k) * self.bernoulli(k) % self.mod for k in range(n))) % self.mod def faulhaber(self, k, n): """ べき乗和 0^k + 1^k + ... + (n-1)^k bernoulli に lru_cache を使うと O(k**2 * log(mod)) bernoulli が計算済みなら O(k * log(mod)) """ return pow(k+1, self.mod-2, self.mod) * sum(self.C(k+1, j) * self.bernoulli(j) % self.mod * pow(n, k-j+1, self.mod) % self.mod for j in range(k+1)) % self.mod def lah(self, n, k): """ n 要素を k 個の空でない順序付き集合に分割する場合の数 O(1) """ return self.C(n-1, k-1) * self.fac[n] % self.mod * self.facinv[k] % self.mod def bell(self, n, k): """ n 要素を k グループ以下に分割する場合の数 O(k**2 + k*log(mod)) """ return sum(self.stirling_second(n, j) for j in range(1, k+1)) % self.mod def montmort(self, n): """ 順列を置換した数列のうち、ai != i となるような数列の数 """ return sum( (-1)**(k%2) * self.fac[n]*self.facinv[k] for k in range(2,n+1)) % self.mod class Combination2: """ without mod """ def __init__(self, n_max): f = 1 self.fac = fac = [f] for i in range(1, n_max+1): f = f * i fac.append(f) def __call__(self, n, r): if not 0 <= r <= n: return 0 return self.fac[n] // self.fac[r] // self.fac[n-r] def F(self, n): """ n! """ return self.fac[n] def C(self, n, r): if not 0 <= r <= n: return 0 return self.fac[n] // self.fac[r] // self.fac[n-r] def P(self, n, r): if not 0 <= r <= n: return 0 return self.fac[n] // self.fac[n-r] def H(self, n, r): """ (箱区別:〇 ボール区別:× 空箱:〇) 重複組み合わせ nHm """ if not 0 <= r <= n+r-1: return 0 return self.fac[n+r-1] // self.fac[r] // self.fac[n-1] ############################################################################################## import sys input = sys.stdin.readline MOD=10**9+7 N=int(input()) C = Combination(N, MOD=MOD) res=0 for k in range(N+1): res+=C(N,k)*pow(N-k,k,MOD) res%=MOD print(res)