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
KEYWORD
nonn
AUTHOR
Amarnath Murthy, May 13 2004
EXTENSIONS
More terms from Harvey P. Dale, May 23 2004
STATUS
approved