|
| |
|
|
A086376
|
|
Maximal coefficient of the polynomial (1-x)*(1-x^2)*...*(1-x^n).
|
|
4
| |
|
|
1, 1, 1, 2, 1, 2, 2, 2, 2, 3, 2, 4, 3, 3, 4, 6, 5, 6, 7, 8, 8, 10, 11, 16, 16, 18, 21, 28, 29, 34, 41, 50, 56, 66, 80, 100, 114, 131, 158, 196, 225, 263, 320, 388, 455, 532, 644, 786, 921, 1083, 1321, 1600, 1891, 2218, 2711, 3280, 3895, 4588, 5591, 6780, 8051, 9519, 11624
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
LINKS
| S. R. Finch, Signum equations and extremal coefficients.
J. W. Meijer and M. Nepveu, Euler's ship on the Pentagonal Sea, Acta Nova, Volume 4, No.1, December 2008. pp. 176-187. [From Johannes W. Meijer (meijgia(AT)hotmail.com), June 21, 2010]
E. M. Wright, A closer estimate for a restricted partition function, Q. J. Math. 15 (1964) 283-287.
|
|
|
MAPLE
| A086376 := proc(n)
g := expand(mul( 1-x^k, k=1..n) );
convert(PolynomialTools[CoefficientVector](g, x), list):
max(%);
end proc:
seq(A086376(n), n=1..60) ; # R. J. Mathar, Jun 01 2011
|
|
|
CROSSREFS
| Cf. A025591, A160089.
Sequence in context: A112222 A112220 A185278 * A160089 A129363 A053597
Adjacent sequences: A086373 A086374 A086375 * A086377 A086378 A086379
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| Yuval Dekel (dekelyuval(AT)hotmail.com), Sep 07 2003
|
|
|
EXTENSIONS
| More terms from Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), Sep 22 2003
|
| |
|
|
