login
A094330
Product of next n numbers divided by n.
0
1, 3, 40, 1260, 72072, 6511680, 852508800, 152512113600, 35730097603200, 10613749905158400, 3897631650008678400, 1733625189541076832000, 918381625086037787136000, 571320549624154764994560000
OFFSET
1,2
EXAMPLE
a(4) = (7*8*9*10)/4.
MATHEMATICA
f[n_] := Module[{start = Plus @@ Range[n - 1] + 1, end}, end = start + n - 1; (Times @@ Range[start, end])/n]; Table[f[i], {i, 15}]
With[{nn=15}, Times@@#/Length[#]&/@TakeList[Range[(nn(nn+1))/2], Range[ nn]]] (* Requires Mathematica version 11 or later *) (* Harvey P. Dale, May 22 2018 *)
CROSSREFS
Sequence in context: A047799 A204515 A012250 * A110468 A327356 A295612
KEYWORD
nonn
AUTHOR
Amarnath Murthy, May 13 2004
EXTENSIONS
More terms from Harvey P. Dale, May 23 2004
STATUS
approved