OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..667
FORMULA
MATHEMATICA
Table[Product[(2*n - 3 - 2*k), {k, 0, Floor[n/2 - 1]}], {n, 1, 50}] (* G. C. Greubel, Sep 26 2018 *)
PROG
(PARI) for(n=1, 50, print1(prod(k=0, floor(n/2 -1), 2*n-2*k-3), ", ")) \\ G. C. Greubel, Sep 26 2018
(Magma) [1] cat [(&*[2*n-2*k-3:k in [0..Floor(n/2 -1)]]): n in [2..50]]; // G. C. Greubel, Sep 26 2018
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Johannes W. Meijer, Jun 18 2009
STATUS
approved