var m,n:word;begin repeat read(m,n);writeln(n*(n+1)*(m*3-n+1)div 6+ord(m<n))until 0>0end.