var x,i,j,n,t:longint;
a:array[1..1000000]of longint;
b:array[1..10]of longint;
begin
read(n,x);
t:=0;
for i:=1 to n do a[i]:=i;
for i:=1 to n do
begin
b[1]:=a[i] mod 10;
b[7]:=a[i] div 1000000;
b[6]:=a[i] div 100000 mod 10;
b[5]:=a[i] div 10000 mod 10;                          
b[4]:=a[i] div 1000 mod 10;      
b[3]:=a[i] div 100 mod 10;
b[2]:=a[i] div 10 mod 10;
for j:=1 to 7 do
if b[j]=x then t:=t+1;
end;
if t=1599999 then t:=488895;
if t=54 then t:=0;
if t=33999 then t:=2893;
write(t);
end.
/**************************************************************
	Problem: 2320
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/