Example

Input

20


Output

4
/*****************************************************************
 *                   BISMILLAHIR RAHMANIR RAHIM                  *
 *                           JU_Circavex                         *
 *****************************************************************/

#include<bits/stdc++.h>

//#include<algorithm>
//#include<cstdio>
//#include<sstream>
//#include<cstdlib>
//#include<cctype>
//#include<cmath>
//#include<set>
//#include<queue>
//#include<stack>
//#include<list>
//#include<iostream>
//#include<fstream>
//#include<numeric>
//#include<string>
//#include<vector>
//#include<cstring>
//#include<map>
//#include<iterator>
//#include<deque>
//#include<climits>
//#include<complex>

#define S scanf
#define P printf
#define DI(X) int (X);             scanf("%d", &X)
#define DII(X, Y) int X, Y;        scanf("%d%d", &X, &Y)
#define DIII(X, Y, Z) int X, Y, Z; scanf("%d%d%d", &X, &Y, &Z)
#define DILL(X) LL (X); scanf("%lld", &X)

#define LL long long int
#define ULL unsigned long long int
#define D double

#define all(a) a.begin(),a.end()
#define X  first
#define Y  second
#define MP make_pair
#define NL P("\n")

#define PB(x)      push_back(x)
#define PS(x)      push(x)
#define sz()       size()
#define UB         upper_bound
#define LB         lower_bound
#define countbit(x) __builtin_popcount(x)

#define MEM(a,val) memset(a,val,sizeof(a));
#define SET(a)     memset(a,-1,sizeof a)
#define CLR(a)     memset(a,0,sizeof a)

using namespace std;


#define ll long long int
#define ull unsigned long long int
#define inf (1<<30)
#define linf (1LL<<62)
#define sc(a) scanf("%d",&a)
#define sc2(a,b) scanf("%d%d",&a,&b)
#define sc3(a,b,c) scanf("%d%d%d",&a,&b,&c)
#define sc4(a,b,c,d) scanf("%d%d%d%d",&a,&b,&c,&d)
#define f(i,n) for(i=0;i<n;i++)
#define fl(c,i,n) for(i=c;i<n;i++)
#define mem(a) memset(a,0,sizeof(a))
#define memn(a) memset(a,-1,sizeof(a))
#define aov(a) a.begin(),a.end()
#define pb push_back
#define PI (2.0*acos(0.0)) //#define PI acos(-1.0)
#define pll pair< ll , ll >
#define pdl pair< double , ll >
#define pii pair< int , int >
#define mpr make_pair
#define xx first
#define yy second
#define nl puts("")
#define endl '\n'
#define dbg(x) cerr<<#x<<" : "<<x<<endl
#define mpp make_pair
#define SZ(x) (int)(x.size())
#define fr(i,a,n) for(int i=a;i<=n;i++)

template <typename T> T BigMod (T b,T p,T m){if (p == 0) return 1;if (p%2 == 0){T s = BigMod(b,p/2,m);return ((s%m)*(s%m))%m;}return ((b%m)*(BigMod(b,p-1,m)%m))%m;}
template <typename T> T ModInv (T b,T m){return BigMod(b,m-2,m);}
template <typename T> T POW(T B,T P){ if(P==0) return 1; if(P&1) return B*POW(B,P-1);  else return SQR(POW(B,P/2));}
template <typename T> LL isLeft(T a,T b,T c) { return (a.x-b.x)*(b.y-c.y)-(b.x-c.x)*(a.y-b.y); }
template <class T> inline T bigmod(T p,T e,T M){ll ret = 1;for(; e > 0; e >>= 1){if(e & 1) ret = (ret * p) % M;p = (p * p) % M;}return (T)ret;}
template <class T> inline T gcd(T a,T b){if(b==0)return a;return gcd(b,a%b);}
template <class T> inline T modinverse(T a,T M){return bigmod(a,M-2,M);}   // M is prime}
template <class T> inline T bpow(T p,T e){ll ret = 1;for(; e > 0; e >>= 1){if(e & 1) ret = (ret * p);p = (p * p);}return (T)ret;}

int    Set(int N,int pos){ return N=N | (1<<pos);}
int  Reset(int N,int pos){return N= N & ~(1<<pos);}
bool Check(int N,int pos){return (bool)(N & (1<<pos));}

#define VI  vector< int >
#define VII vector< VI >
#define VLL vector< LL >
#define PII pair< int , int >
#define PLL pair< LL , LL >
#define VPI vector< PII >

///         0123456789
#define MX  300007
#define MOD 1000000007
#define eps 1e-14

/// Hashing Bases & MOD
///           0123456789
#define Base1 10000019ULL
#define Base2 10000079ULL
#define Base3 10000103ULL
#define MOD1  1000000007ULL
#define MOD2  1000000009ULL
#define MOD3  1000000021ULL
#define LOGX  17
#define FCIN  ios_base::sync_with_stdio(0); cin.tie(0)

///int mnth[]={-1,31,28,31,30,31,30,31,31,30,31,30,31};  //Not Leap Year
///int dx[]={2,1,-1,-2,-2,-1,1,2};int dy[]={1,2,2,1,-1,-2,-2,-1};//Knight Direction
///int dx[]={-1,+1,0,1,0,-1}; // Hexagonal Direction   **
///int dy[]={-1,+1,1,0,-1,0}; //                       *#*
///                                                     **
///int dx[]={0,1,0,-1};int dy[]={1,0,-1,0}; //4 Direction

int ts, kk = 1;

#define M  200005
#define MD 1000000007LL
#define sqr(x) ((x)*(x))

char b[20];
int a[20];
int n;
ll y;

int fr[4];
int ls[]={1,2,3,2,2,5,2,3,7,2,2,2,3,3,2,5};
int bs[]={1,1,2,3  ,5,6  ,8,9    ,12 ,14,16};
int id[]={-1,-1,0,1,-1,2,-1,3};

void clc(int x,int q[])
{
    for(int i=bs[x-1];i<bs[x];i++)
    {
        q[ id[ ls[i] ] ]++;
    }
}

ll chk(int e2,int e3,int e5,int e7)
{
    ll x=bpow(2LL,(ll)e2);
    x*=bpow(3LL,(ll)e3);
    x*=bpow(5LL,(ll)e5);
    x*=bpow(7LL,(ll)e7);
    return x;
}

//ll p[3][14][50][20][10][10][10];

map< pii , ll> p[3][14][127][21][17];
map< pii , ll> ::iterator it;
//int vs[3][14][127][30][30][21][17];

ll dp2(char bg,int i,int s,int e2,int e3,int e5,int e7)
{
    if(s<0)return 0;
    if(i==n)
    {
        if(s>0)return 1LL;
        ll q=chk(e2,e3,e5,e7);
        if(q<y)return 1LL;
        if(q==y)return (ll)(bg==0);
        return 0LL;
    }
    it=p[bg][i][s][e5][e7].find( pii(e2,e3) );
    if(it!=p[bg][i][s][e5][e7].end())return it->yy;
//    ll &pr=p[bg][i][s][e2][e3][e5][e7];
//    if(vs[bg][i][s][e2][e3][e5][e7]==kk)return pr;
//    vs[bg][i][s][e2][e3][e5][e7]=kk;
    ll pr=0LL;

    int qr[4];
    char nbg;
    for(int j=0;j<10;j++)
    {
        qr[0]=e2;
        qr[1]=e3;
        qr[2]=e5;
        qr[3]=e7;
        clc(j+1,qr);

        if(bg!=1)nbg=bg;
        else
        {
            if(j<a[i])nbg=0;
            else if(j>a[i])nbg=2;
            else nbg=1;
        }
//        cerr<<i<<" "<<j<<" :: "<<pr<<" - "<<chk(qr[0],qr[1],qr[2],qr[3])<<endl;
        pr+=dp2( nbg ,i+1,s-j,qr[0],qr[1],qr[2],qr[3] );
//        cerr<<i<<" "<<j<<" :: "<<pr<<" - "<<chk(qr[0],qr[1],qr[2],qr[3])<<endl;
//        cerr<<bg<<" "<<nbg<<endl;
    }
    p[bg][i][s][e5][e7][ pii(e2,e3) ]=pr;
    return pr;
}

int main()
{
    int t,i,j,k,l;
//    cerr<<sizeof(p)/1e6<<endl;
//    ios_base::sync_with_stdio(0);cin.tie(0);

//    while(scanf(" %s",b)!=EOF)
//    {
        scanf("%s",b);
        kk++;
        mem(fr);
        n=strlen(b);

        y=1;
        k=0;
        for(i=0;i<n;i++)
        {
            a[i]=b[i]-'0';

            k+=a[i];
            clc(a[i]+1,fr);
            y*=(ll)(a[i]+1LL);
        }
        f(i,n)f(j,k+1)f(t,21)f(l,17)
        {
            p[0][i][j][t][l].clear();
            p[1][i][j][t][l].clear();
            p[2][i][j][t][l].clear();
        }

        ll rs=dp2(1,0,k,0,0,0,0);
        printf("%lld\n",rs);
//    }

    return 0;
}