%I #7 Nov 14 2015 16:51:24
%S 22,392,4302,41979,393476,3652779,34099448,322746351,3111556310,
%T 30637025849,308542096284,3180677263083,33574281993047,
%U 362907367462521,4016295885663247,45496983534864142,527373693673894161,6252643277063017082,75794122449729562363
%N Number of permutations of [n] with exactly five (possibly overlapping) occurrences of the generalized pattern 23-1.
%H Alois P. Heinz, <a href="/A264464/b264464.txt">Table of n, a(n) for n = 6..500</a>
%e a(6) = 22: 245613, 245631, 256341, 345261, 346251, 356124, 356142, 356214, 356412, 356421, 452361, 453612, 453621, 462351, 463512, 463521, 561342, 562314, 562413, 562431, 563241, 564231.
%p b:= proc(u, o) option remember; `if`(u+o=0, 1, add(
%p b(u-j, o+j-1), j=1..u) +add(convert(series(
%p b(u+j-1, o-j)*x^u, x, 6), polynom), j=1..o))
%p end:
%p a:= n-> coeff(b(n, 0), x, 5):
%p seq(a(n), n=6..25);
%Y Column k=5 of A260670.
%K nonn
%O 6,1
%A _Alois P. Heinz_, Nov 14 2015
|