OFFSET
0,2
MATHEMATICA
nn = 12; B[n_] := QFactorial[n, 2]; e[z_] := Sum[z^n/B[n], {n, 0, nn}]; A[z_] := Sum[Product[2^n - 2^i, {i, 0, n - 1}] z^n/B[n], {n, 0, nn}]; Table[B[n], {n, 0, nn}] CoefficientList[Series[A[z]*e[z], {z, 0, nn}], z]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Feb 05 2026
STATUS
approved
