|
%I M4709 N2012 #23 Aug 10 2017 18:21:32
%S 1,10,50,385,3130,28764,291900,3249210,39367395,515874470,7270929806,
%T 109691447395,1763782644020,30114243100760,544123405603800,
%U 10373304279494964,208092476689208805,4381794437494059810,96635643877147885450,2227562535558247510885
%N Coefficients of ménage hit polynomials.
%D J. Riordan, An Introduction to Combinatorial Analysis, Wiley, 1958, p. 198.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H R. C. Read, <a href="/A000684/a000684_1.pdf">Letter to N. J. A. Sloane, Oct. 29, 1976</a>
%t max = 23; f[x_, y_] := Sum[n!*((x*y)^n/(1 + x*(y-1))^(2*n+1)), {n, 0, max} ]; t = MapIndexed[Take[#1, #2[[1]]]&, CoefficientList[Series[f[x, y], {x, 0, max}, {y, 0, max}], {x, y}]]; a[n_] := t[[n+1, n-3]]; Table[a[n], {n, 4, max}] (* _Jean-François Alcover_, Feb 08 2016, after _Vladeta Jovovic_ in A058057 *)
%Y A diagonal of A058057.
%K nonn
%O 4,2
%A _N. J. A. Sloane_, _Simon Plouffe_
|
