OFFSET
0,3
LINKS
Michael De Vlieger, Log log scatterplot of Log_10(a(n)), n = 0..1024, showing odd indexed terms in red, even indexed terms in blue.
MAPLE
seq(mul(A374433(n, k), k = 0..n), n=0..40);
MATHEMATICA
nn = 39; Do[Set[s[i], FactorInteger[i][[All, 1]]], {i, 0, nn}]; s[0] = {1}; Array[Product[Times @@ Intersection[s[k], s[#]], {k, 0, #}] &, nn + 1, 0] (* Michael De Vlieger, Jul 11 2024 *)
PROG
(Python)
from math import prod
print([prod([A374433(n, k) for k in range(n + 1)]) for n in range(40)])
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jul 10 2024
STATUS
approved