OFFSET
0,3
EXAMPLE
a(9): 9!/(4!*4!*3!) = 105.
MATHEMATICA
f[n_] := Block[{k = Floor[n/2], m = n!}, While[k > 1, While[ Mod[m, k! ] == 0, m /= k! ]; k-- ]; m]; Table[ f[n], {n, 0, 35}] (* Robert G. Wilson v *)
PROG
(PARI) a(n)=c=n!; forstep(d=floor(n/2), 2, -1, while (c%(d!)==0, c/=d!)); c
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, Nov 23 2005
EXTENSIONS
More terms from Robert G. Wilson v, Nov 25 2005
STATUS
approved