[go: up one dir, main page]

login
A039909
Largest coefficient in expansion of Product_{i=1..n} (1-q^1+q^2-...+(-q)^i).
5
1, 1, 2, 5, 20, 101, 573, 3836, 29228, 250749, 2409581, 25380120, 294625748, 3727542188, 50626553988, 738680521142, 11501573822788, 190418421447330, 3344822488498265, 61995904304519920, 1212867413232346644, 24965661442811799655, 538134522243713149122
OFFSET
0,3
LINKS
FORMULA
Conjecture: a(n) ~ 6 * n^n / exp(n). - Vaclav Kotesovec, Jan 05 2023
PROG
(Magma) PS<q>:=PowerSeriesRing(Integers()); [ Max(Coefficients(&*[&+[ (-q)^i: i in [0..j] ]: j in [0..n] ])): n in [1..20] ]; // Klaus Brockhaus, Jan 18 2011
(PARI) a(n) = vecmax(Vec(prod(j=1, n, sum(k=0, j, (-x)^k)))); \\ Seiichi Manyama, Jan 05 2023
CROSSREFS
KEYWORD
nonn
EXTENSIONS
a(0)=1 prepended by Seiichi Manyama, Jan 05 2023
STATUS
approved