A154268 Ratios of consecutive denominators of Stirling's expansion for the Gamma function.
12, 24, 180, 48, 84, 360, 12, 96, 5940, 168, 156, 720, 12, 24, 107100, 192, 228, 11880, 12, 336, 4140, 312, 12, 1440, 84, 24, 516780, 48, 372, 214200, 12
Offset: 0
Programs
-
Mathematica
dd = Denominator[ CoefficientList[ Normal[ Series[ E^x*x^(x-1/2)*x! / Sqrt[2*Pi], {x, Infinity, 31}]] /. x -> 1/x, x]]; Rest[ dd / RotateRight[dd] ] (* Jean-François Alcover, Aug 03 2012 *)
Extensions
Edited and extended by R. J. Mathar, Sep 07 2009
Comments