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 A374430 #8 Jul 11 2024 09:38:16
%S A374430 1,3,5,7,27,11,13,30375,17,19,750141,23,3125,19683,29,31,235782657,
%T A374430 1313046875,37,3502727631,41,43,28025208984375,47,823543,634465620819,
%U A374430 53,7863818359375,7971951402153,59,61,422112982235053221,453238525390625
%N A374430 Odd bisection of A374431.
%p A374430 PF := n -> ifelse(n = 0, {}, NumberTheory:-PrimeFactors(n)):
%p A374430 T := (n, k) -> mul(PF(n) intersect PF(k)):
%p A374430 seq(mul(T(2*n+1, k), k = 0..2*n+1), n = 0..20);
%t A374430 nn = 65; Do[Set[s[i], FactorInteger[i][[All, 1]]], {i, 0, nn}]; Table[Product[Times @@ Intersection[s[k], s[n]], {k, 0, n}], {n, 1, nn, 2}] (* _Michael De Vlieger_, Jul 11 2024 *)
%Y A374430 Cf. A374431, A374433.
%K A374430 nonn
%O A374430 0,2
%A A374430 _Peter Luschny_, Jul 10 2024