A277175 - OEIS

%I #15 Oct 13 2016 03:57:03

%S 1,2,5,15,53,222,1120,6849,50111,427510,4142900,44693782,529276962,

%T 6813205468,94642629984,1410507388421,22445134308123,379776665469030,

%U 6808016435182620,128886547350655050,2569493300908367550,53805226930896987540,1180673761078007109840

%N Convolution of Catalan numbers and factorial numbers.

%H Alois P. Heinz, <a href="/A277175/b277175.txt">Table of n, a(n) for n = 0..449</a>

%F a(n) = Sum_{i=0..n} C(i) * (n-i)!.

%F a(n) ~ n! * (1 + 1/n + 2/n^2 + 7/n^3 + 31/n^4 + 163/n^5 + 979/n^6 + 6556/n^7 + 48150/n^8 + 383219/n^9 + 3275121/n^10 + ...), for coefficients see A277396. - _Vaclav Kotesovec_, Oct 13 2016

%p a:= proc(n) option remember; `if`(n<4, [1, 2, 5, 15][n+1],

%p       ((2*(n^4-n^3-19*n^2+48*n-5))*a(n-1)

%p        -(n+1)*(n^4+9*n^3-90*n^2+226*n-160)*a(n-2)

%p        +(2*(4*n^5-18*n^4-23*n^3+266*n^2-523*n+330))*a(n-3)

%p        -(4*(n-2))*(n^2-4*n+5)*(2*n-5)^2*a(n-4))/

%p        ((n+1)*(n^2-6*n+10)))

%p     end:

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

%t Table[Sum[CatalanNumber[k]*(n - k)!, {k, 0, n}], {n, 0, 20}] (* _Vaclav Kotesovec_, Oct 13 2016 *)

%Y Cf. A000108, A000142, A277176, A277359, A277396.

%K nonn

%O 0,2

%A _Alois P. Heinz_, Oct 02 2016