A192557 - OEIS

%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