OFFSET
1,3
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 1..200
MATHEMATICA
f[n_] := Max@ CoefficientList[ Expand@ Product[1 + Sum[i*x^i, {i, j}], {j, n - 1}], x]; Array[f, 19]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 27 2011
STATUS
approved