|
%I #8 Oct 17 2013 14:46:06
%S 1,8,99,1602,32010,761904,21064680,663848640,23500653120,923616691200,
%T 39914540709120,1881558401184000,96096062174112000,
%U 5286518167746816000,311689569962010240000,19608741674518284288000,1311187373310480906240000,92868537238628772741120000
%N Number of permutations of [2n+3] in which the longest increasing run has length n+3.
%C Also the number of ascending runs of length n+3 in the permutations of [2n+3].
%H Alois P. Heinz, <a href="/A230343/b230343.txt">Table of n, a(n) for n = 0..300</a>
%F a(n) = (n^3+8*n^2+20*n+19)*(2*n+3)!/(n+5)! for n>0, a(0) = 1.
%F a(n) = A008304(2*n+3,n+3) = A122843(2*n+3,n+3).
%p a:= proc(n) option remember; `if`(n<2, 1+7*n, 2*(2*n+3)*(n+1)*
%p (n^3+8*n^2+20*n+19)*a(n-1)/((n+5)*(n^3+5*n^2+7*n+6)))
%p end:
%p seq(a(n), n=0..25);
%Y A diagonal of A008304, A122843.
%K nonn
%O 0,2
%A _Alois P. Heinz_, Oct 16 2013
| 