croXXQ[stn_]:=匹配Q[stn,{___,{_____,a_,___,b_,____,c_,___},___、{___、x_、___、y_、z_、___}、___}/;a<x<b<y<c<z||x<a<y<b<z<c];
sps[{}]:={{}};sps[set:{i_,___}]:=联接@@函数[s,前缀[#,s]和/@sps[Complement[set,s]]/@Cases[子集[set],{i,___}];
表[Length[Select[sps[Range[n]],croXXQ],{n,0,8}]