A078487 G.f.: (1-9*x+29*x^2-30*x^3+10*x^4-x^5-(1-6*x+x^2)^(1/2)*(1-6*x+13*x^2-7*x^3+x^4))/(2*x).

0, 1, 2, 6, 23, 100, 464, 2236, 11048, 55588, 283648, 1463868, 7626296, 40049188, 211768752, 1126513788, 6024316488, 32368294756, 174645900768, 945893037948, 5140619493464, 28024941448420, 153219244012432, 839884005112636, 4615012956649832, 25415266785076900

Offset

0,3

Comments

Generating function for a certain wreath product.

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

M. D. Atkinson and T. Stitt, Restricted permutations and the wreath product, Preprint, 2002.

M. D. Atkinson and T. Stitt, Restricted permutations and the wreath product, Discrete Math., 259 (2002), 19-36.

Mathematica

CoefficientList[Series[(1 - 9 x + 29 x^2 - 30 x^3 + 10 x^4 - x^5 - (1 - 6 x + x^2)^(1/2) (1 - 6 x + 13 x^2 - 7 x^3 + x^4))/(2 x), {x, 0, 33}], x] (* Vincenzo Librandi, May 28 2016 *)

Crossrefs

Sequence in context: A009449 A233106 A133656 * A376317 A193038 A213090

Adjacent sequences: A078484 A078485 A078486 * A078488 A078489 A078490

Keyword

nonn

Author

N. J. A. Sloane, Jan 04 2003

Extensions

Replaced definition with g.f. given by Atkinson and Still (2002). - N. J. A. Sloane, May 24 2016

Status

approved