OFFSET
1,2
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 1..92
FORMULA
a(n) = Max[Abs[CoefficientList[Product[(1-x^k)^k,{k,1,n}],x]]].
EXAMPLE
a(1)=1 because Product[(1-x^k)^k,{k,1,1}]=x-1.
a(2)=2 because Product[(1-x^k)^k,{k,1,2}]=(1-x)(1-x^2)^2=-x^5+x^4+2x^3-2x^2-x+1.
MATHEMATICA
Table[Max[Abs[CoefficientList[Product[(1-x^k)^k, {k, 1, n}], x]]], {n, 1, 16}]
p=1; Table[p=Expand[p*(1-x^n)^n]; Max[Abs[CoefficientList[p, x]]], {n, 1, 20}] (* Vaclav Kotesovec, Feb 10 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Jul 10 2006
STATUS
approved