OFFSET
0,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..1000
MAPLE
a := n -> convert(numtheory:-factorset(binomial(2*n, n)), `*`):
seq(a(n), n=0..25); # Peter Luschny, Oct 31 2015
MATHEMATICA
a[n_] := Times @@ FactorInteger[Binomial[2n, n]][[All, 1]]; Array[a, 26, 0] (* Jean-François Alcover, Jun 04 2019 *)
PROG
(PARI) a(n) = vecprod(factor(binomial(2*n, n))[, 1]); \\ Amiram Eldar, Jun 21 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Mar 19 2003
EXTENSIONS
More terms from Amiram Eldar, Jun 21 2024
STATUS
approved