（PARI）前项（p）={my（t）；对于步骤（i=#p-1，1，-1，p[i]>p[i+1]&&对于（j=1，#t=vecsort（vecextract（p，2^#p-2^（i-1）），4），t[j]<p[i]&&返回（concat（[vecexstract（p、2^，i-1）-1），[t[j]，vecexract（t，Str（“^”j））]））））；vecsort 4）}/*通用函数，可以在此进行简化/优化*/
A076072号（n） ={my（d=vecsort（Vec（concat（vector（n，i，Str（i+n*（n-1）/2））），4））；对于（i=1，（#d）！，eval\\M.F.哈斯勒2011年7月24日
