Вот на всякий случай код функции для математики, которая позволяет отыскивать многочлены, максимизирующие

-й коэффициент многочлена

-го порядка в соответствии с описанным методом:
Код:
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]]]]);
С её помощью находятся многие многочлены из фигурировавших в теме, например,
![$maxp[5,1]$ $maxp[5,1]$](https://dxdy-02.korotkov.co.uk/f/9/5/6/9565a2b931bb49fc8b9f529b509d6e0382.png)
даёт
