OFFSET
0,3
LINKS
David Ellerman, The number of direct-sum decompositions of a finite vector space, arXiv:1603.07619 [math.CO], 2016.
R. P. Stanley, Exponential structures
MATHEMATICA
nn = 13; B[n_] := Product[q^n - q^i, {i, 0, n - 1}] /. q -> 2;
e[x_] := Sum[x^n/B[n], {n, 0, nn}]; f[x_] := Sum[x^n, {n, 0, nn}];
Table[B[n], {n, 0, nn}] CoefficientList[Series[Exp[f[x] - 1], {x, 0, nn}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Jun 08 2024
STATUS
approved