A192558 - OEIS

%I #6 Aug 17 2021 19:26:46

%S 1,1,5,64,1454,50646,2489402,163460592,13786580376,1449996630360,

%T 185811972643032,28474991200053696,5138710297861448112,

%U 1078056139999155414384,260049332237860544504400,71447460830350118085570816,22174520538085189702788173184

%N a(n) = Sum_{k=0..n} stirling1(n,k)*stirling1(n+1,k+1)*k!.

%t Table[Sum[StirlingS1[n,k]StirlingS1[n+1,k+1]k!,{k,0,n}],{n,0,100}]

%o (Maxima) makelist(sum(stirling1(n,k)*stirling1(n+1,k+1)*k!,k,0,n),n,0,24);

%K nonn

%O 0,3

%A _Emanuele Munarini_, Jul 04 2011