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)) )
[1]+[sum(abs(A118687(n, k)) for k in (0..n+1)) for n in (0..20)] # G. C. Greubel, Feb 07 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 25 2006
EXTENSIONS
Terms a(12) onward added by G. C. Greubel, Feb 07 2021
STATUS
approved