($N,$M)=glob<>;
print$M>($a=$N>>1)*($b=$N-$a)|$M<$N-1?NO:("YES@{[1..$N]}\n",map{$_%$a+1,$",$a+1+($_%$a+$_/$a)%$b,$/}0..$M-1)