A212307 Numerator of n!/3^n.

1, 1, 2, 2, 8, 40, 80, 560, 4480, 4480, 44800, 492800, 1971200, 25625600, 358758400, 1793792000, 28700672000, 487911424000, 975822848000, 18540634112000, 370812682240000, 2595688775680000, 57105153064960000, 1313418520494080000, 10507348163952640000

Offset

0,3

Comments

Also the 3rd column of A152656 (or of A216919).

Links

Table of n, a(n) for n=0..24.

Formula

a(n) = Product_{i=1..n} A038502(i). - Tom Edgar, Mar 22 2014

Mathematica

Table[Numerator[n!/3^n], {n, 0, 32}]
(* or *) CoefficientList[Series[Exp[3x], {x, 0, 32}], x] // Denominator

Prog

(PARI) a(n) = numerator(n!/3^n); \\ Michel Marcus, Oct 30 2013

Crossrefs

Cf. A001316, A049606, A125824 (denominators), A152656, A216919.

Sequence in context: A318869 A060224 A232980 * A111605 A009544 A077607

Adjacent sequences: A212304 A212305 A212306 * A212308 A212309 A212310

Keyword

nonn,frac

Author

Jean-François Alcover and Paul Curtz, Oct 30 2013

Status

approved