cp's OEIS Frontend

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.

A374431 Row product of A374433.

This page as a plain text file.
%I A374431 #15 Jul 13 2024 10:12:21
%S A374431 1,1,2,3,4,5,72,7,16,27,800,11,5184,13,6272,30375,256,17,373248,19,
%T A374431 640000,750141,247808,23,26873856,3125,1384448,19683,39337984,29,
%U A374431 30233088000000,31,65536,235782657,37879808,1313046875,139314069504,37,189267968,3502727631
%N A374431 Row product of A374433.
%H A374431 Michael De Vlieger, <a href="/A374431/a374431.png">Log log scatterplot of Log_10(a(n))</a>, n = 0..1024, showing odd indexed terms in red, even indexed terms in blue.
%p A374431 seq(mul(A374433(n, k), k = 0..n), n=0..40);
%t A374431 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 *)
%o A374431 (Python)
%o A374431 from math import prod
%o A374431 print([prod([A374433(n, k) for k in range(n + 1)]) for n in range(40)])
%Y A374431 Cf. A374433, A374430 (odd bisection).
%K A374431 nonn
%O A374431 0,3
%A A374431 _Peter Luschny_, Jul 10 2024