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,2

Links

Table of n, a(n) for n=1..21.

Formula

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

Example

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A008578, A024923, A334393.

Sequence in context: A365977 A079854 A024923 * A347064 A037992 A335386

Adjacent sequences: A334392 A334393 A334394 * A334396 A334397 A334398

Keyword

nonn

Author

Kevin Foote, Apr 26 2020

Status

approved