#include<cstdio>
#include<cstring>
using namespace std;
int a[20],pos,dp[20][3][13];
int dfs(int dep,int type,int mod,bool lim)
{
    if(!dep) return type==2 && !mod;
    if(!lim && dp[dep][type][mod]!=-1) return dp[dep][type][mod];
    int ans=0,up= lim ? a[dep] : 9;
    for(int i=0;i<=up;i++)
    {
        if(type==2 || (type==1 && i==3)) ans+=dfs(dep-1,2,(mod*10+i)%13,lim && i==up);
        else ans+=dfs(dep-1,i==1 ? 1 : 0,(mod*10+i)%13,lim && i==up);
    } 
    if(!lim) dp[dep][type][mod]=ans;
     return ans;
}
int solve(int n)
{
    while(n) { a[++pos]=n%10; n/=10; }
    return dfs(pos,0,0,1);
}
int main()
{
    int n;
    memset(dp,-1,sizeof(dp));
    while(scanf("%d",&n)!=EOF)
    {
        printf("%d\n",solve(n));
        pos=0;
    }
}