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,2

Links

Table of n, a(n) for n=0..32.

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

Crossrefs

Cf. A374431, A374433.

Sequence in context: A131039 A362684 A294924 * A249544 A027449 A126670

Adjacent sequences: A374427 A374428 A374429 * A374431 A374432 A374433

Keyword

nonn

Author

Peter Luschny, Jul 10 2024

Status

approved