n=gets.to_i
k=1
i=1
s=[]
while k<=100000
  if n==k
    puts "Yes"
    puts k
    (i+1).times do
      s << []
    end
    c=0
    cc=i-1
    (i/3).times do |a|
      3.times do |j|
        (i-3*a).times do |b|
          s[3*a+j] << a+cc*j+b+1+c
        end
      end
      s[3*a+2][-1]=s[3*a][3*a]
      (i+1-3*(a+1)).times do |j|
        3.times do |b|
          s[3*(a+1)+j] << s[3*a+b][3*a+j+1]
        end
      end
      c=c+cc*3-1
      cc-=3
    end
    if i%3==1
      s[-2] << c+(i/3)+1
      s[-1] << c+(i/3)+1
    elsif i%3==2
      s[-3] << c+(i/3)+1
      s[-3] << c+(i/3)+2
      s[-2] << c+(i/3)+2
      s[-2] << c+(i/3)+3
      s[-1] << c+(i/3)+3
      s[-1] << c+(i/3)+1
    end
    (i+1).times do |j|
      puts [i,s[j].join(" ")].join(" ")
    end
    exit
  end
  i+=1
  k+=i
end
puts "No"
