%I #10 Jun 25 2024 12:31:30
%S 1,1,5,49,749,16201,464645,16911049,756570029,40608430681,
%T 2565613446725,187881747426649,15746365790443469,1494340848159224521,
%U 159129983959516664645,18866500386049170199849,2473489038963025307690669,356458089674089695970723321
%N a(n) = Sum_{k=0..n} Stirling2(n,k)*Stirling2(n+1,k+1)*k!.
%t Table[Sum[StirlingS2[n,k]StirlingS2[n+1,k+1]k!,{k,0,n}],{n,0,100}]
%o (Maxima) makelist(sum(stirling2(n,k)*stirling2(n+1,k+1)*k!,k,0,n),n,0,24);
%K nonn
%O 0,3
%A _Emanuele Munarini_, Jul 04 2011