login
A334395
Partial products of A334393.
2
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
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
KEYWORD
nonn
AUTHOR
Kevin Foote, Apr 26 2020
STATUS
approved