A309803
a(n) is the coefficient of x^n in the polynomial Product_{i=1..n+3} (prime(i)*x-1).
Original entry on oeis.org
-1, -17, -288, -5102, -107315, -2429223, -64002818, -2057205252, -69940351581, -2788890538777, -122099137635118, -5580021752377242, -276932659619923555, -15388458479166668283, -946625238259888348698, -60082571176666116692888, -4171440414742758122621945
Offset: 0
Cf.
A000040,
A002110,
A024451,
A070918,
A309802,
A309804,
A033999,
A007504,
A024447,
A024448,
A024449,
A054640,
A005867,
A238146,
A260613.
-
a:= n-> coeff(mul(ithprime(i)*x-1, i=1..n+3), x, n):
seq(a(n), n=0..20); # Alois P. Heinz, Aug 19 2019
A309804
a(n) is the coefficient of x^n in the polynomial Product_{i=1..n+4} (prime(i)*x-1).
Original entry on oeis.org
1, 28, 652, 16186, 414849, 11970750, 411154568, 14802996860, 617651235401, 28112591190218, 1330940558814492, 68134228016658366, 3888046744502816953, 244783216404832868510, 15878401438954693327808, 1123935467586630569656024, 83970858613393528568199649
Offset: 0
Cf.
A000040,
A002110,
A024451,
A070918,
A309802,
A309803,
A033999,
A007504,
A024447,
A024448,
A024449,
A054640,
A005867,
A238146,
A260613.
-
a:= n-> coeff(mul(ithprime(i)*x-1, i=1..n+4), x, n):
seq(a(n), n=0..20); # Alois P. Heinz, Aug 19 2019
-
a[n_] := CoefficientList[Series[Product[Prime[i]*x - 1, {i, 1, n+4}], {x, 0, 25}], x] [[n+1]]; Array[a, 17, 0] (* Amiram Eldar, Aug 24 2019 *)
-
a(n) = polcoef(prod(i=1, n+4, prime(i)*x-1), n); \\ Michel Marcus, Aug 25 2019
Showing 1-2 of 2 results.