A369984 - OEIS

%I #8 Feb 07 2024 11:52:14

%S 1,1,1,1,1,2,2,3,3,5,4,5,4,8,10,9,13,16,26,36,38,51,66,48,36,49,49,94,

%T 147,152,174,120,214,268,346,580,463,598,1024,1217,1521,2473,2417,

%U 3340,4795,7086,12643,4808,5569,9373,13083,9644,8762,9516,10702,14483

%N Maximum coefficient of (1 - x) * (1 - x^3) * (1 - x^6) * ... * (1 - x^(n*(n+1)/2)).

%t Table[Max[CoefficientList[Product[(1 - x^(k (k + 1)/2)), {k, 1, n}], x]], {n, 0, 55}]

%o (PARI) a(n) = vecmax(Vec(prod(i=1, n, (1-x^(i*(i+1)/2))))); \\ _Michel Marcus_, Feb 07 2024

%Y Cf. A000217, A086376, A292518, A359348, A369728.

%K nonn

%O 0,6

%A _Ilya Gutkovskiy_, Feb 07 2024