#include <bits/stdc++.h>
using namespace std;
#define int long long
const int MOD=1e9+7;

int n;
template <typename T>
struct SegmentTree{
  using F = function<T(T,T)>;
  int n;  //セグ木の幅
  F f;  //モノイドの作用
  T ti;  //初期値
  vector<T> dat;  //セグ木で使う配列 一番上に使われるのがdat[1] 一番下の段の左端がdat[n]
  SegmentTree(){};
  SegmentTree(F f,T ti):f(f),ti(ti){}  //fがモノイドとしての作用、tiが単位元

  SegmentTree(F f,T ti,int n_):f(f),ti(ti){
    n=1;
    while(n<n_) n<<=1;
    dat.assign(n<<1,ti);
  }

  SegmentTree(F f,T ti,const vector<T> &v):f(f),ti(ti){
    int n_=v.size();
    n=1;
    while(n<n_) n<<=1;
    dat.assign(n<<1,ti);
    for(int i=0;i<n_;i++)dat[n+i]=v[i];
    for(int i=n-1;i;i--)
      dat[i]=f(dat[(i<<1)|0],dat[(i<<1),1]);
  }

  T get(int x){
    return dat[x+n];
  }

  void init(int n_){  //ただの初期化
    n=1;
    while(n<n_) n<<=1;  //nが実際にとる２べきの幅
    dat.assign(n<<1,ti);  //dat配列は幅の２倍あってその全てにtiを代入
  }

  void build(const vector<T> &v){  //vector vに合わせた初期化
    int n_=v.size();
    init(n_);
    for(int i=0;i<n_;i++) dat[n+i]=v[i];  //v[i]を一番子の所に代入
    for(int i=n-1;i;i--)
      dat[i]=f(dat[(i<<1)|0],dat[(i<<1)|1]);  //iの子供は2*i、2*i+1
  }

  void set_val(int k,T x){  //（0-indexedで）kにxを代入
    dat[k+=n]=x;
    while(k>>=1)  //kがどんどん自分の親になっていく、0になったらおしまい
      dat[k]=f(dat[(k<<1)|0],dat[(k<<1)|1]);
  }

  T query(int a,int b){  //[a,b)の範囲のモノイドの作用を返す
    T vl=ti,vr=ti;
    for(int l=a+n,r=b+n;l<r;l>>=1,r>>=1) {
      if(l&1) vl=f(vl,dat[l++]);  //左端を使いたくなるのはブロックが奇数の時
      if(r&1) vr=f(dat[--r],vr);  //右端〃偶数の時（開区間なのでr:奇数で反応）
    }
    return f(vl,vr);
  }

  template<typename C>
  int find(int st,C &check,T &acc,int k,int l,int r){  //dat[k]:[l,r)の間にいるenを返す
    //下のfind用なので先にそっち読むべき
    //accはst~lとかで確定している値
    if(l+1==r){  //答えがちゃんと存在するならこのlが答え
      acc=f(acc,dat[k]);
      return check(acc)?k-n:-1; //入るならk-n(==l)を、入らないなら-1を返す
    }
    int m=(l+r)>>1;  //にぶたんのそれ
    if(m<=st) return find(st,check,acc,(k<<1)|1,m,r);  //mがstより後ろなら明らかにl=m;
    if(st<=l&&!check(f(acc,dat[k]))){  //今見てるk全部でもダメ(mだと足りないのでl=mにする）
      acc=f(acc,dat[k]);  //kは全部accに加えた上で-1を返す
      return -1;
    }
    int vl=find(st,check,acc,(k<<1)|0,l,m);  //まず[l,m)の中にenがいるか探す
    if(~vl) return vl;  //いたならそれを返す(if(~vl)は-1以外にのみ反応する)
    return find(st,check,acc,(k<<1)|1,m,r);  //いなかったら[m,r)の中にenがいるのでそれを返す
    //acc=f(acc,dat[k]);がここで効いてる
  }

  template<typename C>
  int find(int st,C &check){
    //check(f(dat[st]~dat[en-1]))=false,check(f(dat[st]~dat[en]))＝trueとなるenを返す
    T acc=ti;
    return find(st,check,acc,1,0,n);
  }
};
template<typename T>
void fin(T a){
  cout<<a<<endl;
  exit(0);
}
/*
dp[k]:k+1個目を束縛しないk個の数字の並べ方
ans=sum(k:0~N-2){dp[k]*(N-1)*(N-1)}+dp[N-1]*(N-1)+sum(k:N~2*N)dp[k]
*/

signed main(){
  cin>>n;
  if(n==1)fin(1);


  auto f=[](int a,int b){return (a+b)%MOD;};
  SegmentTree<int> seg(f,0,2*n+5);
  seg.set_val(0,1);
  seg.set_val(1,1);
  for(int i=2;i<=2*n;i++){
    seg.set_val(i,(seg.query(0,min(i,n-1))-seg.query(0,i-n-1)+2*MOD)%MOD);
    if(i-2<n-1)seg.set_val(i,(seg.get(i)-seg.get(i-2)+MOD)%MOD);
  }
  seg.set_val(n,seg.get(n)+seg.get(n-1));

  //k個目まで連続数が出ない(k個目の終わりは1でk+1個目が束縛されていない)数字の並べ方をf(k)とした時
  //sum(k:0~N-2)f(k)*(N-1)*(N-1)+f(N-1)*(N-1)+f(N)
  int ans=0;
  for(int i=0;i<n-1;i++)ans+=seg.get(i)*(n-1)%MOD*(n-1)%MOD,ans%=MOD;
  ans+=seg.get(n-1)*(n-1)%MOD,ans%=MOD;
  for(int i=n;i<=2*n;i++)ans+=seg.get(i),ans%=MOD;
  cout<<ans<<endl;
  //for(int i=0;i<=10;i++)cout<<dp[i]<<" ";cout<<endl;
}
/*
0=1
1={1}=1
2={1,1}=1
3={1,1,1}{2,1,1}=2
4={1,1,1,1}{1,2,1,1}{2,1,1,1}{3,1,1,1}=4
5={1,1,2,1,1}{1,3,1,1,1}{4,1,1,1,1}=3
6={1,1,3,1,1,1}{1,4,1,1,1,1}=2
7={1,1,4,1,1,1,1}=1
8=0
*/


Measured memory_bytes: 33024