var v:array[1..1000] of integer;
    r,i,n,j,d,q,o,p,z:1..999999999;
    f,g:text;
begin
assign(f,'pascal.in');
assign(g,'pascal.out');
reset(f);
rewrite(g);
readln(f,r,d);
q:=1;
o:=1;
p:=1;
for i:=1 to r do q:=q*i;{i!}
n:=r+1;
v[1]:=1;
v[n]:=1;
for j:=2 to n-1 do begin
                   p:=1;
                   for i:=1 to n-j do p:=p*i;{i-j!}
                   o:=o*(j-1); {j!}
                   z:=p*o;
                   v[j]:=q div z;
                   end;
for i:=1 to n do
if v[i] mod d=0 then writeln(g,v[i]);
close(f);
close(g);
end.