login
A374431
Row product of A374433.
3
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,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
Cf. A374433, A374430 (odd bisection).
Sequence in context: A075832 A037434 A033170 * A334536 A097931 A162225
KEYWORD
nonn
AUTHOR
Peter Luschny, Jul 10 2024
STATUS
approved