A119490 Sum of the absolute values in row n of A118687.

1, 2, 4, 8, 16, 80, 400, 10000, 250000, 48250000, 83424250000, 1441654464250000, 24913230796704250000, 5166032451235389984250000, 1071233655120621702524064250000, 3109835221395024747917162004384250000, 135419643726614411057926317695276801184250000

Offset

0,2

Links

G. C. Greubel, Table of n, a(n) for n = 0..50

Mathematica

A049614[n_]:= n!/Product[Prime[i], {i, 1, PrimePi[n]}];
b:= Join[{{1}}, Table[CoefficientList[Product[1 -A049614[k]*x, {k, 0, n}], x], {n, 0, 21}]];
Table[Sum[Abs[b[[n, j]]], {j, n}], {n, 20}] (* G. C. Greubel, Feb 07 2021 *)

Prog

(Sage)
def A049614(n): return factorial(n)/product( nth_prime(j) for j in (1..prime_pi(n)) )
def A118687(n, k): return ( product(1 -A049614(k)*x for k in (0..n)) ).series(x, n+2).list()[k]
[1]+[sum(abs(A118687(n, k)) for k in (0..n+1)) for n in (0..20)] # G. C. Greubel, Feb 07 2021

Crossrefs

Cf. A118687.

Sequence in context: A001127 A051299 A097049 * A013174 A283195 A233294

Adjacent sequences: A119487 A119488 A119489 * A119491 A119492 A119493

Keyword

nonn

Author

Roger L. Bagula, May 25 2006

Extensions

Terms a(12) onward added by G. C. Greubel, Feb 07 2021

Status

approved