cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A000386 Coefficients of ménage hit polynomials.

This page as a plain text file.
%I A000386 M4137 N1715 #21 Feb 01 2022 00:55:27
%S A000386 0,0,0,1,6,20,134,915,7324,65784,657180,7223637,86637650,1125842556,
%T A000386 15757002706,236298742375,3780061394232,64251145312880,
%U A000386 1156374220457784,21968796934412649,439337048505773790,9225384943965382564,202945418255342821470
%N A000386 Coefficients of ménage hit polynomials.
%D A000386 J. Riordan, An Introduction to Combinatorial Analysis, Wiley, 1958, p. 198.
%D A000386 N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D A000386 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%t A000386 max = 22; 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_] := If[n<3, 0, t[[n+1, n-2]]]; Table[ a[n], {n, 0, max}] (* _Jean-François Alcover_, Feb 08 2016, after _Vladeta Jovovic_ in A058057 *)
%Y A000386 A diagonal of A058057.
%K A000386 nonn
%O A000386 0,5
%A A000386 _N. J. A. Sloane_