A334395 Partial products of A334393.

1, 2, 6, 24, 120, 840, 6720, 60480, 665280, 8648640, 147026880, 2793510720, 64250746560, 1606268664000, 43369253928000, 1257708363912000, 38988959281272000, 1247646697000704000, 46162927789026048000, 1892680039350067968000, 81385241692052922624000

Offset: 1

Author

Kevin Foote, Apr 26 2020

Keywords

• nonn

Examples

			a(6) = 1*2*3*4*5*7 = 840.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..358

Crossrefs

Cf. A008578, A024923, A334393.

Programs

Mathematica

Rest @ FoldList[Times, 1, Select[Range[43], Length[(f = FactorInteger[#])] == 1 && ((e = f[[1, 2]]) == 1 || PrimeQ[e]) &]] (* Amiram Eldar, May 11 2020 *)

PARI

isok(n) = if (n==1, return (1)); my(k=isprimepower(n)); (k==1) || isprime(k); \\ A334393
lista(nn) = {my(v = select(x->isok(x), [1..nn]), p=1); for (n=1, #v, p *= v[n]; print1(p, ", "););} \\ Michel Marcus, May 11 2020

Formula

a(n) = Product_{i=1..n} A334393(i).