A374431 Row product of A374433.

1, 1, 2, 3, 4, 5, 72, 7, 16, 27, 800, 11, 5184, 13, 6272, 30375, 256, 17, 373248, 19, 640000, 750141, 247808, 23, 26873856, 3125, 1384448, 19683, 39337984, 29, 30233088000000, 31, 65536, 235782657, 37879808, 1313046875, 139314069504, 37, 189267968, 3502727631

Offset: 0

Author

Peter Luschny, Jul 10 2024

Keywords

• nonn

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.

Crossrefs

Cf. A374433, A374430 (odd bisection).

Programs

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 *)

Python

from math import prod
print([prod([A374433(n, k) for k in range(n + 1)]) for n in range(40)])