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

Author

Labos Elemer, Sep 13 2001

Keywords

• nonn

Crossrefs

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

Programs

Mathematica

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

PARI

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

Formula

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

Extensions

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