A075999 Product{[n/k + 1/2]: k=1,2,...,n}, where [x + 1/2] denotes the integer nearest to x.

1, 2, 6, 8, 30, 72, 112, 384, 1080, 1800, 6336, 13824, 26208, 94080, 345600, 368640, 1057536, 5598720, 6566400, 24192000, 74511360, 93671424, 457850880, 955514880, 2156544000, 5887365120, 16460236800, 40967700480, 101025792000

Offset

1,2

Links

Table of n, a(n) for n=1..29.

Example

a(6) = 6*3*2*2*1*1 = 72.

Mathematica

Table[Product[Floor[n/k+1/2], {k, n}], {n, 30}] (* Harvey P. Dale, Feb 15 2015 *)

Crossrefs

Cf. A075998 (product of second-nearest integers), A010786 (product of [n/k], k=1, 2, ..., n).

Sequence in context: A053287 A086323 A336618 * A096999 A019199 A094678

Adjacent sequences: A075996 A075997 A075998 * A076000 A076001 A076002

Keyword

nonn

Author

Clark Kimberling, Sep 29 2002

Status

approved