var k,s : longint;
    count : longint;
    l     : longint;
    gen   : array[1..50,1..50] of integer;
    ngen  : array[1..50] of integer;
procedure gendat;
var loop,loop2  : longint;
 begin
      fillchar(gen,sizeof(gen),0);
      fillchar(ngen,sizeof(ngen),0);
      for loop:=2 to 50 do
          begin
               for loop2:=2 to loop do
                   if loop mod loop2=0 then
                      begin inc(ngen[loop]); gen[loop,ngen[loop]]:=loop2; end;
          end;
 end;
procedure process(level,now,dat : integer);
var loop  : integer;
    lll   : integer;
 begin
      if level>=k then
         begin
              inc(count);
              if count>=10000 then
                 begin writeln(10000); halt; end;
              exit;
         end;
      loop:=now;
      for lll:=1 to ngen[dat] do
      if gen[dat,lll]*(k-level)>s then break
      else
      while loop+gen[dat,lll]<=s do
            begin
                 inc(loop,gen[dat,lll]);
                 process(level+1,loop,dat);
            end;
 end;
begin
     count:=0;
     readln(k,s);
     gendat;
     for l:=2 to s do
         begin
              process(1,l,l);
         end;
     writeln(count);
end.

&#1076;&#1041;&#1080;&#1076;&#1169;&#1081;&#1053;&#1080;&#1058;&#8470; code &#1169;&#1065;&#1072;&#183;&#1080;&#1058;&#1076;&#1051;&#1043;&#1080;&#8470;&#1056; &#1073;&#181;&#1080;&#1045;&#1053;&#167; case &#8470;&#1061;&#1081;&#1169;&#1065;
2 12
&#181;&#1081;&#1053;&#167;&#1076;&#1169;&#1081; 21

try this case
2 12
the answer must be 21

>

you may use (6, 12) twice in your solution

> try this case
> 2 12
> the answer must be 21