OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..358
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