cp's OEIS Frontend

A262241 Number of ordered pairs (p,q) of permutations of [n] with complementary up-down signatures and p(1)=q(1) if n>0.

%I A262241 #11 Aug 30 2021 06:39:18
%S A262241 1,1,0,2,12,144,2456,58376,1836064,73967072,3714221440,227511703296,
%T A262241 16699185465088,1446996011652864,146157945571218944,
%U A262241 17023105015524481536,2264733463688117325824,341323210761171895406592,57851227793596711612702720
%N A262241 Number of ordered pairs (p,q) of permutations of [n] with complementary up-down signatures and p(1)=q(1) if n>0.
%C A262241 1 < p(1) = q(1) < n for n > 1.
%H A262241 Alois P. Heinz, <a href="/A262241/b262241.txt">Table of n, a(n) for n = 0..110</a>
%e A262241 a(1) = 1: (1,1).
%e A262241 a(2) = 0.
%e A262241 a(3) = 2: (213,231), (231,213).
%e A262241 a(4) = 12: (2134,2431), (2143,2314), (2143,2413), (2314,2143), (2413,2143), (2431,2134), (3124,3421), (3142,3412), (3241,3412), (3412,3142), (3412,3241), (3421,3124).
%p A262241 b:= proc(u, o, h) option remember; `if`(u+o=0, 1,
%p A262241       add(add(b(u-j, o+j-1, h-i), i=1..h), j=1..u)+
%p A262241       add(add(b(u+j-1, o-j, h+i-1), i=1..u+o-h), j=1..o))
%p A262241     end:
%p A262241 a:= n-> `if`(n=0, 1, add(b(j-1, n-j, n-j), j=1..n)):
%p A262241 seq(a(n), n=0..20);
%t A262241 b[u_, o_, h_] := b[u, o, h] = If[u + o == 0, 1,
%t A262241      Sum[Sum[b[u - j, o + j - 1, h - i], {i, h}], {j, u}] +
%t A262241      Sum[Sum[b[u + j - 1, o - j, h + i - 1], {i, u + o - h}], {j, o}]];
%t A262241 a[n_] := If[n == 0, 1, Sum[b[j - 1, n - j, n - j], {j, n}]];
%t A262241 Table[a[n], {n, 0, 20}] (* _Jean-François Alcover_, Aug 30 2021, after _Alois P. Heinz_ *)
%Y A262241 Cf. A060350, A262233, A262234.
%K A262241 nonn
%O A262241 0,4
%A A262241 _Alois P. Heinz_, Sep 15 2015