program z5;

{$APPTYPE CONSOLE}

var f1,f2:text;
    a,b:integer;
    l:longint;
    n,m,i,j,k:int64;
    //ma:array [1..1000000] of int64;
begin
assign(f1,'problem.in');
assign(f2,'problem.out');
reset(f1);
readln(f1,n,m);
close(f1);
rewrite(f2);
//i:=9 mod 10;
//writeln(f2, i);


j:=0;
k:=0;
for l:=1 to n do
 begin
 j:=j+l;
 writeln(l);
 if j mod m =0 then k:=k+1;
 end;


writeln(f2,k);


close(f2);

end.