login
A153742
Number of elements in wreath product C_3 wr S_n that alternate up/not-up with respect to a weak product ordering.
1
3, 6, 44, 201, 2436, 16768, 284388, 2610633, 56926096, 653221506, 17409078576, 239721136817, 7550440414752, 121296879540684, 4408222329882272, 80934331054201905, 3333529520918540544, 68853515512316939422
OFFSET
1,1
LINKS
A. Niedermaier and J. Remmel, Analogues of Up-down Permutations for Colored Permutations, J. Int. Seq. 13 (2010), 10.5.6.
FORMULA
E.g.f.: (2 + 2*sin(x) + 4*x*cos(x) - x^2*sin(x))/(2*cos(x) - 4*x*sin(x) -x^2*cos(x)).
a(n)/n! ~ c / r^(n+1) where r = 0.59974142102782394317972557684 is the root of the equation 4*r*tan(r) = (2-r^2), c = 4*sqrt(4 + 12*r^2 + r^4)/(12 + 16*r^2 + r^4) = 1.0837719267197115958973167583838141520381872675225558954477173... if n is even and c = (8 + 24*r^2 + 2*r^4)/(12 + 16*r^2 + r^4) = 1.5747968742391725511892660696837072745667493434277868133205599... if n is odd. - Vaclav Kotesovec, Aug 27 2016
EXAMPLE
Viewing elements in one-line notation as a list of ordered pairs with first entries in [3] and second entries forming a permutation in S_n, two of the 44 up/not-up elements for n=3 are (1,2) (3,3) (1,1) and (1,1) (1,3) (2,2). Note that the first element goes up/down and the second goes up/not-up with respect to the weak product ordering on ordered pairs.
MATHEMATICA
Rest[CoefficientList[Series[(2 + 2*Sin[x] + 4 x*Cos[x] - x^2*Sin[x])/(2*Cos[x] - 4*x*Sin[x] - x^2*Cos[x]), {x, 0, 50}], x]*Range[0, 50]!] (* G. C. Greubel, Aug 27 2016 *)
CROSSREFS
Sequence in context: A116315 A363475 A001886 * A092198 A133005 A009581
KEYWORD
nonn
AUTHOR
Andrew Niedermaier, Dec 31 2008
STATUS
approved