|
| |
|
|
A154420
|
|
Maximal coefficient of MacMahon polynomial (cf. A060187) p(x,n)=2^n*(1 - x)^(n + 1)* LerchPhi[x, -n, 1/2]; that is, a(n)=Max(coefficients(p(x,n))
|
|
1
| |
|
|
1, 1, 6, 23, 230, 1682, 23548, 259723, 4675014, 69413294, 1527092468, 28588019814, 743288515164, 16818059163492, 504541774904760, 13397724585164019, 455522635895576646, 13892023109165902550, 527896878148304296900
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| Since the center is the maximum in the Pascal, Eulerian and MacMahon triangles, a(n)=MacMahon[n,Floor[n/2]]
|
|
|
MATHEMATICA
| p[x_, n_] = 2^n*(1 - x)^(n + 1)* LerchPhi[x, -n, 1/2];
Table[Max[CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x]], {n, 0, 30}]
|
|
|
CROSSREFS
| Cf. A060187
Sequence in context: A012468 A013260 A013266 * A194770 A052697 A193429
Adjacent sequences: A154417 A154418 A154419 * A154421 A154422 A154423
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 09 2009
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Jan 15 2009
|
| |
|
|
