OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..251
MATHEMATICA
f[p_, e_] := p^Mod[e, 2]; a[1] = 1; a[n_] := (2*n)! / ((Times @@ f @@@ FactorInteger[n!])^2 * (n+1)); Array[a, 17] (* Amiram Eldar, May 01 2025 *)
PROG
(PARI) a(n) = (2*n)!/core(n!)^2/(n+1);
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Jun 19 2002
STATUS
approved
