OFFSET
0,5
COMMENTS
MAPLE
swingfact := n -> n! / iquo(n, 2)!^2;
A182923 := n -> swingfact(n) / mul(k, k=select(isprime, [$iquo(n, 2)+1..n])):
MATHEMATICA
sf[n_] := n!/Floor[n/2]!^2;
a[n_] := sf[n]/Numerator[n!/Floor[n/2]!^4];
Table[a[n], {n, 0, 42}] (* Jean-François Alcover, Jun 22 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Mar 05 2011
STATUS
approved