Problem: Kavi has 2n points lying on the OX axis, i-th of which is located at x = i.

Kavi considers all ways to split these 2n points into n pairs. Among those, he is interested in good pairings, which are defined as follows:

Consider n segments with ends at the points in correspondent pairs. The pairing is called good, if for every 2 different segments A and B among those, at least one of the following holds:

  * One of the segments A and B lies completely inside the other. 
  * A and B have the same length. 



Consider the following example:

<image>

A is a good pairing since the red segment lies completely inside the blue segment.

B is a good pairing since the red and the blue segment have the same length.

C is not a good pairing since none of the red or blue segments lies inside the other, neither do they have the same size.

Kavi is interested in the number of good pairings, so he wants you to find it for him. As the result can be large, find this number modulo 998244353.

Two pairings are called different, if some two points are in one pair in some pairing and in different pairs in another.

Input

The single line of the input contains a single integer n (1≤ n ≤ 10^6).

Output

Print the number of good pairings modulo 998244353.

Examples

Input


1


Output


1

Input


2


Output


3

Input


3


Output


6

Input


100


Output


688750769

Note

The good pairings for the second example are: 

<image>

In the third example, the good pairings are: 

<image>

Solution (in CPP):

Solution:
#include<bits/stdc++.h>
using namespace std;
#define debug(...) fprintf(stderr, __VA_ARGS__), fflush(stderr)
typedef long long int ll;
typedef long double ld;
typedef pair<ll,ll> p2;
#define sz(a) ll(a.size())
ll dp[2000005],spf[2000005],hell=998244353;
ll add(ll x,ll y){
    x+=y;
    if(x>=hell){
        x-=hell;
    }
    return x;
}
void test2311(){
    ll n;
    cin>>n;
    cout<<dp[2*n];
}
int main(){
    ios_base::sync_with_stdio(false);
    cin.tie(NULL);
    cout.tie(NULL);
    clock_t z=clock();
    #ifndef ONLINE_JUDGE
    freopen("input.txt", "r" , stdin);
    freopen("output.txt", "w", stdout);
    #endif
    ll qc=1;
    //cin>>qc;
    for(ll i=2;i*i<=2000000;i++)
        if(!spf[i]){
            for(ll j=i*i;j<=2000000;j+=i)
                if(!spf[j]){
                    spf[j]=i;
                }
        }
    for(ll i=1;i<=2000000;i++)
        if(!spf[i]){
            spf[i]=i;
        }
    dp[2]=1;
    ll sum=1;
    for(ll i=4;i<=2000000;i+=2){
        ll val=1,x=i/2;
        while(x>1){
            ll p=spf[x],c=1;
            while(x%p==0){
                x/=p;
                c++;
            }
            val*=c;
        }
        dp[i]=add(sum,val);
        sum=add(sum,dp[i]);
    }
    for(ll i=1;i<=qc;i++){
        //cout<<"Case #"<<i<<": ";
        test2311();
    }
    debug("Total Time:%.4Lf\n",(ld)(clock()-z)/CLOCKS_PER_SEC);
}