A192562 - OEIS

%I #4 Mar 30 2012 18:55:30

%S 1,1,5,56,1024,27114,969128,44610432,2556362016,177733575120,

%T 14692805761512,1420846650571776,158583233552744064,

%U 20199186787986074400,2908060636034265554880,469318752131725598874624,84293191721843435282950656

%N a(n) = sum(abs(stirling1(n,k))*stirling2(n+1,k+1)*k!,k=0..n).

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

%o (Maxima) makelist(sum(abs(stirling1(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