blg={0,1,2,44,4983,7565342,2414249587694,56130437054842366160898}(*A275307型*);
sps[{}]:={{}};sps[set:{i_,___}]:=联接@@函数[s,前缀[#,s]和/@sps[Complement[set,s]]/@Cases[子集[set],{i,___}];
表[Sum[n^(k-1)*乘积[blg[[Length[s]+1]],{s,spn}],{spn,选择[sps[Range[n-1]],Length#]==k&]}],}n,Length[blg]},{k,n-1}]