Вот на всякий случай код функции для математики, которая позволяет отыскивать многочлены, максимизирующие
-й коэффициент многочлена
-го порядка в соответствии с описанным методом:
Код:
maxp[n_, m_] := (k = Floor[(n - 1)/2]; R = Range[k];
cf = Unique[] & /@ R;
df[x_] := (1 - x)^Mod[n - 1, 2]*(Plus @@ (((x^(# - 1)) & /@ R).cf) + x^k)^2;
f[x_] := Integrate[df[t], {t, 0, x}];
norm = f[1];
Expand[FullSimplify[(f[x]/norm) /.Maximize[Abs[CoefficientList[f[x], x][[m + 1]]/norm], cf,Reals][[2]]]]);
С её помощью находятся многие многочлены из фигурировавших в теме, например,
даёт