OFFSET
0,3
FORMULA
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
KEYWORD
nonn,frac
AUTHOR
Jean-François Alcover and Paul Curtz, Oct 30 2013
STATUS
approved