OFFSET
1,13
EXAMPLE
MATHEMATICA
FoldList[{#1, Count[Range@ Max@ #2, k_ /; FreeQ[#1, k]]} & @@ {Append[#1, #2], #2} & @@ {First@ #1, Table[SeriesCoefficient[1/QPochhammer[a q, q], {q, 0, #2}, {a, 0, k}], {k, #2}]} &, {{{1}}, 0}, Range[2, 40]][[All, -1]] (* Michael De Vlieger, Sep 29 2017, after Vladimir Reshetnikov at A008284 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. Stauduhar, Sep 28 2017
STATUS
approved