The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A094219

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A094219

Number of permutations of length n with exactly 3 occurrences of the pattern 2-13.
(history; published version)

#23 by Charles R Greathouse IV at Thu Sep 08 08:45:13 EDT 2022

PROG

(MAGMAMagma) [(1/3)*Binomial(n+2, 2)*Binomial(2*n, n-5): n in [1..30]]; // Vincenzo Librandi, Aug 20 2015

Discussion

Thu Sep 08

08:45

OEIS Server: https://oeis.org/edit/global/2944

#22 by Alois P. Heinz at Sat Nov 14 18:21:33 EST 2015

STATUS

editing

approved

#21 by Alois P. Heinz at Sat Nov 14 18:21:26 EST 2015

LINKS

Alois P. Heinz, <a href="/A094219/b094219.txt">Table of n, a(n) for n = 1..500</a>

STATUS

approved

editing

#20 by Alois P. Heinz at Sat Nov 14 17:47:12 EST 2015

STATUS

editing

approved

#19 by Alois P. Heinz at Sat Nov 14 17:47:09 EST 2015

CROSSREFS

Column k=3 of A263776.

STATUS

approved

editing

#18 by Bruno Berselli at Thu Aug 20 04:48:40 EDT 2015

STATUS

editing

approved

#17 by Bruno Berselli at Thu Aug 20 04:48:11 EDT 2015

MATHEMATICA

Rest[CoefficientList[Series[(-7 x^2 + 8 x - 2 - (4 x^7 + 14 x^6 + 84 x^5 - 350 x^4 + 350 x^3 - 147 x^2 + 28 x - 2)/(1 - 4 x)^(5/2))/(2 x^5), {x, 0, 33}], x]] (* Vincenzo Librandi, Aug 20 2015 *)

Table[Binomial[n + 2, 2] Binomial[2 n, n - 5]/3, {n, 1, 30}] (* Vincenzo Librandi, Aug 20 2015 *)

STATUS

proposed

editing

#16 by Vincenzo Librandi at Thu Aug 20 03:37:55 EDT 2015

STATUS

editing

proposed

#15 by Vincenzo Librandi at Thu Aug 20 03:37:40 EDT 2015

MATHEMATICA

Rest[CoefficientList[Series[(-7 x^2 + 8 x - 2 - (4 x^7 + 14 x^6 + 84 x^5 - 350 x^4 + 350 x^3 - 147 x^2 + 28 x - 2)/(1 - 4 x)^(5/2))/(2 x^5), {x, 0, 33}], x]] (* Vincenzo Librandi, Aug 20 2015 *)

PROG

(MAGMA) [(1/3)*Binomial(n+2, 2)*Binomial(2*n, n-5): n in [1..30]]; // Vincenzo Librandi, Aug 20 2015

STATUS

proposed

editing

#14 by Michel Marcus at Thu Aug 20 03:22:52 EDT 2015

STATUS

editing

proposed