A064032 Product of unitary divisors of binomial(n, floor(n/2)).

1, 2, 3, 36, 100, 400, 1225, 24010000, 252047376, 4032758016, 2075562447064149770496, 531343986448422341246976, 75186222935463997063888896, 19247673071478783248355557376, 2940278105018015412903875390625, 566574142904620264536665169363475932852029446342410000000000000000

Offset

1,2

Links

Table of n, a(n) for n=1..16.

Formula

a(n) = A061537(A001405(n)). - Amiram Eldar, Jul 22 2024

Mathematica

f[n_] := n^(2^(PrimeNu[n]-1)); Table[f[Binomial[n, Floor[n/2]]], {n, 1, 20}] (* Amiram Eldar, Jul 22 2024 *)

Prog

(PARI) a(n) = apply(x -> x^(2^(omega(x)-1)), binomial(n, n\2)); \\ Amiram Eldar, Jul 22 2024

Crossrefs

Cf. A001405, A048243, A056173, A061537, A061538.

Sequence in context: A325500 A084191 A080357 * A118443 A355236 A340845

Adjacent sequences: A064029 A064030 A064031 * A064033 A064034 A064035

Keyword

nonn

Author

Labos Elemer, Sep 13 2001

Extensions

a(15)-a(16) from Amiram Eldar, Jul 22 2024

Status

approved