login
A359338
Minimal exponent of the powers of x corresponding to the maximal coefficient of the product x^2*(x^2 + x^3)*(x^2 + x^3 + x^5)*...*(x^2 + x^3 + x^5 + ... + x^prime(n)).
3
0, 2, 4, 7, 12, 16, 22, 32, 42, 53, 65, 79, 96, 114, 134, 155, 180, 205, 233, 263, 294, 329, 364, 403, 442, 485, 529, 576, 625, 676, 729, 785, 842, 902, 964, 1029, 1097, 1167, 1238, 1313, 1390, 1469, 1552, 1636, 1723, 1813, 1904, 1999, 2096, 2195, 2298, 2402, 2510
OFFSET
0,2
MATHEMATICA
b[n_]:=CoefficientList[Product[Sum[x^Prime[i], {i, k}], {k, n}], x]; Table[Min[Position[b[n], Max[b[n]]]]-1, {n, 0, 52}]
CROSSREFS
Cf. A359337 (exponents), A359339 (maximal exponent).
Sequence in context: A052474 A033054 A361724 * A362652 A266186 A306673
KEYWORD
nonn
AUTHOR
Stefano Spezia, Dec 27 2022
STATUS
approved