This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A334395 #33 Aug 09 2024 08:24:55
%S A334395 1,2,6,24,120,840,6720,60480,665280,8648640,147026880,2793510720,
%T A334395 64250746560,1606268664000,43369253928000,1257708363912000,
%U A334395 38988959281272000,1247646697000704000,46162927789026048000,1892680039350067968000,81385241692052922624000
%N A334395 Partial products of A334393.
%H A334395 Amiram Eldar, <a href="/A334395/b334395.txt">Table of n, a(n) for n = 1..358</a>
%F A334395 a(n) = Product_{i=1..n} A334393(i).
%e A334395 a(6) = 1*2*3*4*5*7 = 840.
%t A334395 Rest @ FoldList[Times, 1, Select[Range[43], Length[(f = FactorInteger[#])] == 1 && ((e = f[[1, 2]]) == 1 || PrimeQ[e]) &]] (* _Amiram Eldar_, May 11 2020 *)
%o A334395 (PARI) isok(n) = if (n==1, return (1)); my(k=isprimepower(n)); (k==1) || isprime(k); \\ A334393
%o A334395 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
%Y A334395 Cf. A008578, A024923, A334393.
%K A334395 nonn
%O A334395 1,2
%A A334395 _Kevin Foote_, Apr 26 2020