OFFSET
1,7
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..1000
S. R. Finch, Signum equations and extremal coefficients.
Steven R. Finch, Signum equations and extremal coefficients, February 7, 2009. [Cached copy, with permission of the author]
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, Jun 21 2010]
MAPLE
p:= proc(n) option remember; expand(
`if`(n=0, 1, (x^n-1)*p(n-1)))
end:
a:= n-> -min(coeffs(p(n))):
seq(a(n), n=1..80); # Alois P. Heinz, Apr 12 2017
MATHEMATICA
p[n_] := p[n] = Expand[If[n == 0, 1, (x^n - 1)*p[n - 1]]];
a[n_] := -Min[CoefficientList[p[n], x]];
Table[a[n], {n, 1, 80}]; (* Jean-François Alcover, Dec 28 2021, after Alois P. Heinz *)
PROG
(PARI) a(n)=-vecmin(vector(n*(n+1)/2, i, polcoeff(prod(k=1, n, 1-x^k), i))) \\ Benoit Cloitre, Sep 12 2003
CROSSREFS
KEYWORD
nonn
AUTHOR
Yuval Dekel (dekelyuval(AT)hotmail.com), Sep 08 2003
EXTENSIONS
More terms from Benoit Cloitre, Sep 12 2003
Further terms from Sascha Kurz, Sep 22 2003
STATUS
approved