%I #15 May 28 2016 04:13:46
%S 0,1,2,6,23,100,464,2236,11048,55588,283648,1463868,7626296,40049188,
%T 211768752,1126513788,6024316488,32368294756,174645900768,
%U 945893037948,5140619493464,28024941448420,153219244012432,839884005112636,4615012956649832,25415266785076900
%N 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).
%C Generating function for a certain wreath product.
%H Vincenzo Librandi, <a href="/A078487/b078487.txt">Table of n, a(n) for n = 0..1000</a>
%H M. D. Atkinson and T. Stitt, <a href="http://www.cs.otago.ac.nz/staffpriv/mike/Papers/WreathProduct/Wreathpaper.pdf">Restricted permutations and the wreath product</a>, Preprint, 2002.
%H M. D. Atkinson and T. Stitt, <a href="http://dx.doi.org/10.1016/S0012-365X(02)00443-0">Restricted permutations and the wreath product</a>, Discrete Math., 259 (2002), 19-36.
%t 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 *)
%K nonn
%O 0,3
%A _N. J. A. Sloane_, Jan 04 2003
%E Replaced definition with g.f. given by Atkinson and Still (2002). - _N. J. A. Sloane_, May 24 2016
|