A379976 Absolute value of the minimum coefficient of (1 - x^2) * (1 - x^3) * (1 - x^5) * ... * (1 - x^prime(n)).

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 3, 4, 6, 8, 12, 18, 30, 46, 70, 113, 186, 314, 531, 894, 1561, 2705, 4817, 8502, 15030, 26502, 47200, 84698, 151809, 273961, 496807, 900596, 1643185, 2999067, 5498916, 10110030, 18596096, 34300223, 63585519, 118208807, 219235308, 405259618, 752027569, 1400505025

Offset

0,12

Links

Robert Israel, Table of n, a(n) for n = 0..1500

Maple

P:= 1: R:= 1:
for i from 1 to 100 do
  P:= P * (1 - x^ithprime(i));
  R:= R, abs(min(coeffs(expand(P), x)))
od:
R; # Robert Israel, Feb 07 2025

Mathematica

Table[Min[CoefficientList[Product[(1 - x^Prime[k]), {k, 1, n}], x]], {n, 0, 50}] // Abs

Prog

(PARI) a(n) = abs(vecmin(Vec(prod(k=1, n, 1-x^prime(k))))); \\ Michel Marcus, Jan 18 2025

Crossrefs

Cf. A046675, A086394, A350457, A350514, A367843.

Sequence in context: A218947 A017818 A228362 * A155118 A091275 A046936

Adjacent sequences: A379973 A379974 A379975 * A379977 A379978 A379979

Keyword

nonn

Author

Ilya Gutkovskiy, Jan 07 2025

Status

approved