#include <string>
#include <vector>
#include<iostream>
#include<cstdio>
#include<cstdlib>
#include<stack>
#include<queue>
#include<cmath>
#include<algorithm>
#include<functional>
#include<list>
#include<deque>
#include<bitset>
#include<set>
#include<map>
#include<unordered_map>
#include<unordered_set>
#include<cstring>
#include<sstream>
#include<complex>
#include<iomanip>
#include<numeric>
#include<cassert>
#define X first
#define Y second
#define pb push_back
#define rep(X,Y) for (int (X) = 0;(X) < (Y);++(X))
#define reps(X,S,Y) for (int (X) = S;(X) < (Y);++(X))
#define rrep(X,Y) for (int (X) = (Y)-1;(X) >=0;--(X))
#define rreps(X,S,Y) for (int (X) = (Y)-1;(X) >= (S);--(X))
#define repe(X,Y) for ((X) = 0;(X) < (Y);++(X))
#define peat(X,Y) for (;(X) < (Y);++(X))
#define all(X) (X).begin(),(X).end()
#define rall(X) (X).rbegin(),(X).rend()
#define eb emplace_back
#define UNIQUE(X) (X).erase(unique(all(X)),(X).end())
#define Endl endl

using namespace std;
typedef long long ll;
typedef pair<int,int> pii;
typedef pair<ll,ll> pll;
template<class T> using vv=vector<vector<T>>;
template<class T> ostream& operator<<(ostream &os, const vector<T> &t) {
os<<"{"; rep(i,t.size()) {os<<t[i]<<",";} os<<"}"<<endl; return os;}
template<class T,size_t n> ostream& operator<<(ostream &os, const array<T,n> &t) {
	os<<"{"; rep(i,n) {os<<t[i]<<",";} os<<"}"<<endl; return os;}
template<class S, class T> ostream& operator<<(ostream &os, const pair<S,T> &t) { return os<<"("<<t.first<<","<<t.second<<")";}
template<class S, class T,class U> ostream& operator<<(ostream &os, const tuple<S,T,U> &t) { return os<<"("<<get<0>(t)<<","<<get<1>(t)<<","<<get<2>(t)<<")";}
template<class S, class T,class U,class V> ostream& operator<<(ostream &os, const tuple<S,T,U,V> &t) { return os<<"("<<get<0>(t)<<","<<get<1>(t)<<","<<get<2>(t)<<","<<get<3>(t)<<")";}
template<class T> inline bool MX(T &l,const T &r){return l<r?l=r,1:0;}
template<class T> inline bool MN(T &l,const T &r){return l>r?l=r,1:0;}
#undef NUIP
#ifdef NUIP
#define out(args...){vector<string> a_r_g_s=s_p_l_i_t(#args, ','); e_r_r(a_r_g_s.begin(), args); }
vector<string> s_p_l_i_t(const string &s, char c){vector<string> v;int d=0,f=0;string t;for(char c:s){if(!d&&c==',')v.pb(t),t="";else t+=c;if(c=='\"'||c=='\'')f^=1;if(!f&&c=='(')++d;if(!f&&c==')')--d;}v.pb(t);return move(v);}
void e_r_r(vector<string>::iterator it) {}
template<typename T, typename... Args> void e_r_r(vector<string>::iterator it, T a, Args... args){ if(*it==" 1"||*it=="1") cerr<<endl; else cerr << it -> substr((*it)[0] == ' ', it -> length()) << " = " << a << ", "; e_r_r(++it, args...);}
#else
#define out
#endif
template<typename T>vector<T> table(int n, T v){ return vector<T>(n, v);}
template <class... Args> auto table(int n, Args... args){auto val = table(args...); return vector<decltype(val)>(n, move(val));}
const ll MOD=1e9+7;
ll modpow(ll r,ll n,ll m=MOD){
  ll re=1,d=r%m;
  if(n<0)(n%=m-1)+=m-1;
  for(;n;n/=2){
    if(n&1)(re*=d)%=m;
    (d*=d)%=m;
  }
  return re;
}
template <int mod=MOD> struct modInt{
  int v;
  modInt(int v=0):v(v){}
  modInt operator+(const modInt &n){return v+n.v<mod ? v+n.v : v+n.v-mod;}
  modInt operator-(const modInt &n){return v-n.v<0 ? v-n.v+mod : v-n.v;}
  modInt operator*(const modInt &n){return ll(v)*n.v%mod;}
  modInt operator/(const modInt &n){return ll(v)*modpow(n.v%mod,-1,mod)%mod;}
  modInt operator+(const ll &n){return v+n<mod ? v+n : v+n-mod;}
  modInt operator-(const ll &n){return v-n<0 ? v-n+mod : v-n;}
  modInt operator*(const ll &n){return ll(v)*(n%mod)%mod;}
  modInt operator/(const ll &n){return ll(v)*modpow(n%mod,-1,mod)%mod;}
  modInt& operator+=(const modInt &n){v+=n.v; if(v>=mod) v-=mod; return *this;}
  modInt& operator-=(const modInt &n){v-=n.v; if(v<0) v+=mod; return *this;}
  modInt& operator*=(const modInt &n){v=ll(v)*n.v%mod; return *this;}
  modInt& operator/=(const modInt &n){v=ll(v)*modpow(n.v,-1,mod)%mod; return *this;}
  modInt& operator+=(const ll &n){v+=n; if(v>=mod) v-=mod; return *this;}
  modInt& operator-=(const ll &n){v-=n; if(v<0) v+=mod; return *this;}
  modInt& operator*=(const ll &n){v=ll(v)*n%mod; return *this;}
  modInt& operator/=(const ll &n){v=ll(v)*modpow(n,-1,mod)%mod; return *this;}
};
template<int mod> ostream& operator<<(ostream &os,const modInt<mod> &n){return os<<n.v;};
template<int mod> modInt<mod> operator+(const ll &n,const modInt<mod> &m){return m.v+n<mod ? m.v+n : m.v+n-mod;}
template<int mod> modInt<mod> operator-(const ll &n,const modInt<mod> &m){return n-m.v<0 ? n-m.v+mod : n-m.v;}
template<int mod> modInt<mod> operator*(const ll &n,const modInt<mod> &m){return ll(m.v)*(n%mod)%mod;}
template<int mod> modInt<mod> operator/(const ll &n,const modInt<mod> &m){return ll(m.v)*modpow(n%mod,-1,mod)%mod;}
typedef modInt<MOD> mint;
template <int mod> modInt<mod> modpow(modInt<mod> r,ll n){ modInt<mod> re(1); if(n<0)(n%=mod-1)+=mod-1; for(;n;n/=2){if(n&1) re*=r; r*=r;} return re;}
vector<mint> fact,finv,inv;
mint comb(ll n,ll r){ if(n<r||r<0)return 0; return fact[n]*finv[n-r]*finv[r];}
class Doralion{
  void Modinvs(vector<mint> &re,int n){ re.resize(n+1); re[1]=1; for(int i=2;i<=n;++i)re[i]=re[MOD%i]*(MOD-MOD/i);}
  void Facts(vector<mint> &re,int n){ re.resize(n+1); re[0]=1; rep(i,n)re[i+1]=re[i]*(i+1);}
  void Factinvs(vector<mint> &re,const vector<mint> &inv,int n){ re.resize(n+1); re[0]=1; rep(i,n)re[i+1]=re[i]*inv[i+1];}
public:
  Doralion(int n){ Modinvs(inv,n); Facts(fact,n); Factinvs(finv,inv,n);}
} doralion(212345);

ll extgcd(ll a,ll b,ll &x,ll &y){
  ll g=a; x=1,y=0;
  if(b){
    g=extgcd(b,a%b,y,x);
    y-=(a/b)*x;
  }
  return g;
}


int main(){
  ios_base::sync_with_stdio(false);
  cout<<fixed<<setprecision(0);
	vector<ll> pw(10); pw[0]=1;
	reps(i,1,10) pw[i]=pw[i-1]*10;
	ll x;
	cin>>x;
	auto fun=[&](int l,int r,ll L,ll R,ll s)->mint{
		{
			int g=__gcd(l,r);
			if(s%g) return 0;
			s/=g; l/=g; r/=g;
		}
		ll x,y;
		extgcd(l,r,x,y);
		out(l,r,x,y,s,1);
		x*=s; y*=s;
		ll tmp;
		if(x<0){
			tmp=(1-x+r-1)/r;
			x+=tmp*r;
			y-=tmp*l;
		}
		tmp=x/r;
		x-=r*tmp;
		y+=l*tmp;
		if(!x){
			x+=r; y-=l;
		}
		out(l,r,x,y,s,1);
		if(y>R){
			tmp=(y-R+l-1)/l;
			y-=tmp*l;
			x+=tmp*r;
		}
		out(l,r,x,y,s,1);
		if(y<1) return 0;
		ll re=-x;
		tmp=(L-x)/r;
		x+=tmp*r;
		y-=tmp*l;
		if(y<1){
			tmp=(1-y+l-1)/l;
			y+=tmp*l;
			x-=tmp*r;
		}
		out(x,y,1);
		re+=x;
		if(re<0) return 0;
		return (re/r+1)%MOD;
	};
	auto fun3=[&](int l,int r,ll L,ll R,ll s)->mint{
		ll tmp;
		tmp=s/r+1;
		ll x=-s+tmp*r;
		ll y=s-tmp*l;
		out(l,r,x,y,s,1);
		if(y>R){
			tmp=(y-R+l-1)/l;
			y-=tmp*l;
			x+=tmp*r;
		}
		out(l,r,x,y,s,1);
		if(y<1) return 0;
		ll re=-x;
		tmp=(L-x)/r;
		x+=tmp*r;
		y-=tmp*l;
		if(y<1){
			tmp=(1-y+l-1)/l;
			y+=tmp*l;
			x-=tmp*r;
		}
		out(x,y,1);
		re+=x;
		if(re<0) return 0;
		return re/r+1;
	};
	auto fun2=[&](int l,int r,ll s){
		ll L=pw[l]-pw[l-1],R=pw[r]-pw[r-1];
		return fun(l,r,L,R,s);
	};
	mint re=0;
	reps(l,1,10)reps(r,l+1,10){
		ll sum=0;
		reps(i,l+1,r) sum+=(pw[i]-pw[i-1])*i;
		if(sum>=x) continue;
		ll rem=x-sum;
		mint tmp=fun2(l,r,rem);
		if(r<6,0){
			int cnt=0;
			reps(i,1,pw[l]-pw[l-1]+1)
				reps(j,1,pw[r]-pw[r-1]+1)if(1ll*i*l+1ll*j*r==rem) ++cnt;
			assert(cnt==tmp.v);
		}
		out(l,r,tmp,1);
		re+=tmp;
	}
	reps(i,9,x+1) re+=fun3(i,i+1,x,x,x);
	//reps(i,9,x+1) if(fun3(i,i+1,x,x,x).v) cout<<i<<endl;
	auto one=[&](int i){
		if(i<10 && pw[i]-pw[i-1]<x/i) return;
		re+=(modpow(mint(10),i)-modpow(mint(10),i-1)+1-x/i);
	};
	for(int i=1;i*i<=x;++i){
		if(x%i) continue;
		one(i);
		if(i*i<x) one(x/i);
	}
	cout<<re<<endl;
  return 0;
}


Measured memory_bytes: 2816