A125824 Denominator of n!/3^n.

1, 3, 9, 9, 27, 81, 81, 243, 729, 243, 729, 2187, 2187, 6561, 19683, 19683, 59049, 177147, 59049, 177147, 531441, 531441, 1594323, 4782969, 4782969, 14348907, 43046721, 4782969, 14348907, 43046721, 43046721, 129140163, 387420489

Offset

0,2

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Formula

a(0)=1, a(3n+2) = 3^(n+2)*a(n), a(3n+1) = 3^(n+1)*a(n), a(3n) = 3^n*a(n).

a(n) = 3^A089792(n).

a(n) = denominator((1/(2*Pi)) * Integral_{t=0..2*Pi} exp(i*3*t)(-((Pi-t)/i)^n), i=sqrt(-1). - Paul Barry, Apr 02 2007

Mathematica

Table[Denominator[n!/3^n], {n, 0, 40}] (* G. C. Greubel, Aug 03 2019 *)

Prog

(PARI) a(n)=denominator(n!/3^n)
(Magma) [Denominator(Factorial(n)/3^n): n in [0..40]]; // G. C. Greubel, Aug 03 2019
(Sage) [denominator(factorial(n)/3^n) for n in (0..40)] # G. C. Greubel, Aug 03 2019
(GAP) List([0..40], n-> DenominatorRat(Factorial(n)/3^n) ); # G. C. Greubel, Aug 03 2019

Crossrefs

A212307 (numerators).

Sequence in context: A268019 A228977 A223576 * A203558 A223653 A351929

Adjacent sequences: A125821 A125822 A125823 * A125825 A125826 A125827

Keyword

nonn,frac

Author

Benoit Cloitre, Feb 06 2007

Status

approved