n,k = gets.split.map(&:to_i)
if (n*(n+1)/2)%k != 0 || (k > 1 && n/k < 2)
    puts "No"
else
    puts "Yes"
    a = Array.new(k).map{Array.new(n/k)}
    if (n/k).odd? && n/k > 1
        (k/2+1).times do |i|
            a[i][0] = 1+2*i
            a[i][1] = (3*k+1)/2-i
            a[i][2] = 3*k-i
        end
        (k/2).times do |i|
            a[k/2+1+i][0] = 2+2*i
            a[k/2+1+i][1] = 2*k-i
            a[k/2+1+i][2] = 3*k-k/2-1-i
        end
        (3...(n/k)).each do |i|
            k.times do |j|
                a[j][i] = i*k+(i.even? ? j+1 : k-j)
            end
        end
    else
        (n/k).times do |i|
            k.times do |j|
                a[j][i] = i*k+(i.even? ? j+1 : k-j)
            end
        end
    end
    a.each do |arr|
        puts arr.join(" ")
    end
end