Пожалуйста примите к сведению:

Clear[x]
expr = Sum[x^i, {i, 15}]^30;

CoefficientList[expr, x]; // Timing
Coefficient[Expand@expr, x, 234]; // Timing
Coefficient[expr, x, 234]; // Timing

{0.047, Null}

{0.047, Null}

{4.93, Null}

Помощь гласит:

Coefficient работает независимо от того, явно ли указан expr в развернутом виде.

Есть ли причина, почемуCoefficient должно быть так медленно в последнем случае?