program cifre;
var n,k,c,a,i,r:integer;
begin

readln(n,c);
i:=1;
k:=0;
while i<=n do begin a:=i;
                    while a<>0 do begin r:=a mod 10;
                                        if c=r then k:=k+1;
                                        a:=a div 10;
                                  end;
                    i:=i+1;
              end;
write(k);
end.