//小小排列组合~

#include<iostream>
#include<algorithm>
#include<vector>
#include<cstring>

using namespace std;
typedef long long LL;
const int N=2012,mod=1e9+7;
int c[N][N];
int fact[N],infact[N];
int p;

int primes[N],cnt;
int sum[N];
bool st[N];



//1.组合数的性质
void init1()
{
    for(int i=0;i<N;i++)
        for(int j=0;j<=i;j++)
            if(!j)c[i][j]=1;
            else c[i][j]=(c[i-1][j]+c[i-1][j-1])%mod;
}

//2.组合数的公式
//快速幂
 int qmi(int a,int k,int p)
 {
     int res=1;
     while(k)
     {
         if(k&1)res=(LL)res*a%p;
         a=(LL)a*a%p;
         k>>=1;
     }
     return res;
 }

 void init()
 {
     fact[0]=infact[0]=1;
     for(int i=1;i<N;i++)
     {
         fact[i]=(LL)fact[i-1]*i%mod;
         infact[i]=(LL)infact[i-1]*qmi(i,mod-2,mod)%mod;
     }
 }

 //3.卢卡斯原理，c[a][b]=c[a%p][b%p]*c[a/p][b/p](mod p)
 //快速幂

 // 通过定理求组合数C(a, b)
int C(int a, int b)     
{
    int res = 1;
    for (int i = 1, j = a; i <= b; i ++, j -- )
    {
        res = (LL)res * j % p;                 // 构造分子a * (a - 1) * ... * (a - b + 1)
        res = (LL)res * qmi(i, p - 2,p) % p;      // 构造(b!)的逆元(b!)^{p-2}
    }
    return res;
}

int lucas(int a,int b)
{
    if(a<p&&b<p)return C(a,b);
    return (LL)C(a%p,b%p)*lucas(a/p,b/p)%p;
}

//4.高精度
//筛质数
void aget_primes(int n)
{
    for(int i=2;i<=n;i++)
    {
        if(!st[i])primes[cnt++]=i;
        for(int j=0;primes[j]<=n/i;j++)
        {
            st[primes[j]*i]=true;
            if(i%primes[j]==0)break;
        }
    }
}

// 求n！质因数分解后，在质数p的次数
int aget(int n,int p)
{
    int res=0;
    while(n)
    {
        res+=n/p;
        n/=p;
    }
    return res;
}

// 高精度乘低精度模板
vector<int> mul(vector<int> a, int b)       
{
    vector<int> c;
    int t = 0;
    for (int i = 0; i < a.size(); i ++ )
    {
        t += a[i] * b;
        c.push_back(t % 10);
        t /= 10;
    }

    while (t)
    {
        c.push_back(t % 10);
        t /= 10;
    }

    return c;
}

void szs(int a,int b)
{
     aget_primes(a);

    for(int i=0;i<cnt;i++)
    {
        int p=primes[i];
        sum[i]=aget(a,p)-aget(b,p)-aget(a-b,p);
    }

    vector<int> res;
    res.push_back(1);

    for(int i=0;i<cnt;i++)
        for(int j=0;j<sum[i];j++)
            res=mul(res,primes[i]);

    for(int i=res.size()-1;i>=0;i--)
    printf("%d",res[i]);
    puts(" ");
}

//5.扩展应用
//求满足条件的01序列，0的总数 多于 1的总数 恒成立

//c[2N][N]-c[2n][N-1]=c[2N][N]/n+1;
void xxx(int n)
{
    int a=2*n,b=n;
    int res=1;

    for(int i=a;i>a-b;i--)res=(LL)res*i%mod;
    for(int i=1;i<=b;i++)res=(LL)res*qmi(i,mod-2,mod)%mod;


    res=(LL)res*qmi(n+1,mod-2,mod)%mod;

    cout<<res;

    return ;
}


int main()
{
    int a;
    cin>>a;
    xxx(a);
    return 0;

}