A309802
a(n) is the coefficient of x^n in the polynomial Product_{i=1..n+2} (prime(i)*x-1).
Original entry on oeis.org
1, 10, 101, 1358, 20581, 390238, 8130689, 201123530, 6166988769, 201097530280, 7754625545261, 329758834067168, 14671637258193181, 711027519310719868, 38706187989054920001, 2338431642812927422310, 145908145906128304198449, 9976861293427674211625032
Offset: 0
Cf.
A000040,
A002110,
A024451,
A070918,
A309803,
A309804,
A033999,
A007504,
A024447,
A024448,
A024449,
A054640,
A005867,
A238146,
A260613.
-
a:= n-> coeff(mul(ithprime(i)*x-1, i=1..n+2), x, n):
seq(a(n), n=0..20); # Alois P. Heinz, Aug 18 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.