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
Keywords
Links
- Robert Israel, Table of n, a(n) for n = 0..1500
Programs
-
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 -
PARI
a(n) = abs(vecmin(Vec(prod(k=1, n, 1-x^prime(k))))); \\ Michel Marcus, Jan 18 2025