OFFSET
0,3
COMMENTS
The q-analog of A001787.
FORMULA
MATHEMATICA
nn = 20; eq[z_] :=Sum[z^n/FunctionExpand[QFactorial[n, q]], {n, 0, nn}]; Table[FunctionExpand[QFactorial[n, q]] /. q -> 2, {n, 0, nn}] CoefficientList[Series[z eq[z]^2 /. q -> 2, {z, 0, nn}], z]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Jul 04 2017
STATUS
approved