login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A231166 Number of permutations of [n] avoiding simultaneously consecutive patterns 1243, 1342, and 1324. 4

%I #18 Feb 27 2020 07:40:49

%S 1,1,2,6,21,91,467,2755,18523,139740,1169616,10763807,108028386,

%T 1174391384,13748315494,172439034531,2306986699190,32792999417180,

%U 493559520202535,7841127918788283,131127477517244419,2302491655047553206,42355105188617740229

%N Number of permutations of [n] avoiding simultaneously consecutive patterns 1243, 1342, and 1324.

%H Alois P. Heinz, <a href="/A231166/b231166.txt">Table of n, a(n) for n = 0..70</a>

%H A. Baxter, B. Nakamura, and D. Zeilberger, <a href="http://www.math.rutgers.edu/~zeilberg/mamarim/mamarimhtml/auto.html">Automatic generation of theorems and proofs on enumerating consecutive Wilf-classes</a>, 2011.

%H S. Kitaev and T. Mansour, <a href="https://arxiv.org/abs/math/0209340v1">On multi-avoidance of generalized patterns</a>, arXiv:math/0209340 [math.CO], 2002.

%e a(4) = 24 - 3 = 21 because 1243, 1342, 1324 are avoided.

%p b:= proc(u, o, s, t) option remember; `if`(u+o=0, 1,

%p add(b(u-j, o+j-1, `if`(t>0, t, 0), `if`(t>0, -j, 0)),

%p j=`if`(s>0 and t>0,s+t-1,1)..u)+

%p add(b(u+j-1, o-j, `if`(t>0, t, 0), +j),

%p j=1..`if`(s>0 and t<0 and -t<s, -t-1, o)))

%p end:

%p a:= n-> b(n, 0$3):

%p seq(a(n), n=0..25);

%t b[u_, o_, s_, t_] := b[u, o, s, t] = If[u + o == 0, 1, Sum[b[u - j, o + j - 1, If[t > 0, t, 0], If[t > 0, -j, 0]], {j, If[s > 0 && t > 0, s + t - 1, 1], u}] + Sum[b[u + j - 1, o - j, If[t > 0, t, 0], +j], {j, 1, If[s > 0 && t < 0 && -t < s, -t - 1, o]}]];

%t a[n_] := b[n, 0, 0, 0];

%t a /@ Range[0, 25] (* _Jean-François Alcover_, Feb 27 2020, after _Alois P. Heinz_ *)

%Y Cf. A113228, A117156, A117226.

%K nonn

%O 0,3

%A _Alois P. Heinz_, Nov 04 2013

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 18:04 EDT 2024. Contains 371254 sequences. (Running on oeis4.)