# include <fstream.h>
unsigned long min(long a,long b)
{if(a<b)
  return a;
 else
  return b;}
int main()
{unsigned long n,k,j,nr=0,v[10],t;
int d;
for(k=1;k<=7;k++)
 v[k]=0;
ifstream q("pascal.in");
ofstream w("pascal.out");
q>>n>>d;
for(k=1;k<=n/2;k++)
 {t=n-k+1;j=2;
 while(t>1&&j<=5)
  {if(t%j==0)
    {v[j]++;
    t=t/j;}
   else
    j++;}
 v[4]=v[2]/2;
 v[6]=min(v[2],v[3]);
 t=k;
 j=2;
 while(t!=0&&j<=5)
   {if(t%j==0)
     {v[j]--;
     t=t/j;}
    else
     j++;}
 v[4]=v[2]/2;
 v[6]=min(v[2],v[3]);
 if(v[d]>=1)
  if(n%2==0&&k==n/2)
   nr++;
  else
   nr+=2; }
w<<nr;
return 0;
}