A374430 Odd bisection of A374431.

1, 3, 5, 7, 27, 11, 13, 30375, 17, 19, 750141, 23, 3125, 19683, 29, 31, 235782657, 1313046875, 37, 3502727631, 41, 43, 28025208984375, 47, 823543, 634465620819, 53, 7863818359375, 7971951402153, 59, 61, 422112982235053221, 453238525390625

Offset: 0

Author

Peter Luschny, Jul 10 2024

Keywords

• nonn

Crossrefs

Cf. A374431, A374433.

Programs

Maple

PF := n -> ifelse(n = 0, {}, NumberTheory:-PrimeFactors(n)):
T := (n, k) -> mul(PF(n) intersect PF(k)):
seq(mul(T(2*n+1, k), k = 0..2*n+1), n = 0..20);

Mathematica

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