OFFSET
1,3
EXAMPLE
Triangle begins:
1
1 3
10 12 16
238 215 150 125
11368 7740 4140 2160 1296
1014888 509446 205065 84035 36015 16807
MATHEMATICA
blg={0, 1, 1, 10, 238, 11368, 1014888, 166537616, 50680432112, 29107809374336} (*A013922*);
sps[{}]:={{}}; sps[set:{i_, ___}]:=Join@@Function[s, Prepend[#, s]&/@sps[Complement[set, s]]]/@Cases[Subsets[set], {i, ___}];
Table[Sum[n^(k-1)*Product[blg[[Length[s]+1]], {s, spn}], {spn, Select[sps[Range[n-1]], Length[#]==k&]}], {n, Length[blg]}, {k, n-1}]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gus Wiseman, Aug 03 2018
STATUS
approved