>>417
a[1],a[2],・・・,a[k]のうち
a[b[1]]=a[b[1]+1]=・・・=a[b[1]+N[1]-1],
・・・
a[b[m]]=a[b[m]+1]=・・・=a[b[m]+N[m]-1],
の場合には重複を除くため、
p(a[1])*p(a[2])*・・・*p(a[k])中の
Π[i=b[x],N[x]-1]p(i) を {p(b[x])}H{N[x]}
に置き換えてください。(x=1,2,・・・,m)
a[y],b[y],N[y],x,y,mは整数です