#include <bits/stdc++.h>
using namespace std;
#define N 10000005
#define MOD 1000000007
int n,invN,invN1,pw2,ans,fc[N],invFc[N],p[N],pw[N];bool vs[N];
void W(int &x,int y) {x+=y;if(x>=MOD) x-=MOD;}
int qPow(int x,int y)
{
	int res=1;
	for(;y;y/=2,x=1ll*x*x%MOD) if(y&1)
		res=1ll*res*x%MOD;return res;
}
void init(int n)
{
	fc[0]=invFc[0]=1;for(int i=1;i<=n;++i) fc[i]=1ll*fc[i-1]*i%MOD;
	invFc[n]=qPow(fc[n],MOD-2);
	for(int i=n-1;i;--i) invFc[i]=1ll*invFc[i+1]*(i+1)%MOD;
}
void sieve(int n)
{
	vs[1]=pw[1]=1;
	for(int i=2;i<=n;++i)
	{
		if(!vs[i]) p[++p[0]]=i,pw[i]=qPow(i,n);
		for(int j=1;i*p[j]<=n;++j)
		{
			vs[i*p[j]]=1;pw[i*p[j]]=1ll*pw[i]*pw[p[j]]%MOD;
			if(!(i%p[j])) break;
		}
	}
}
int main()
{
	scanf("%d",&n);n*=2;init(n);sieve(n);
	invN=qPow(n,MOD-2);invN1=qPow(n+1,MOD-2);pw2=qPow(2,n);
	for(int i=0,t;i<=n;++i)
	{
		t=(2ll*(n-i)*invN1-1ll*(n-i*2)*invN)%MOD*pw[n-i]%MOD*pw2%MOD;
		if(i*2<n) t=(t+1ll*(invN-invN1)*(n-i*2)%MOD*pw[n-i*2])%MOD;
		t=1ll*(t+MOD)*invFc[i]%MOD*invFc[n-i]%MOD;W(ans,i&1?MOD-t:t);
	}ans=1ll*ans*qPow(pw2,MOD-2)%MOD*n%MOD;printf("%d\n",ans);return 0;
}