%I #6 Mar 30 2012 18:55:30
%S 1,1,4,30,356,5925,129949,3609522,123202470,5047071210,243591826248,
%T 13646279320267,876457826851309,63867571888960931,5233393632259094223,
%U 478504806151155710490,48490898635782743083282,5414061277570448051139952
%N a(n) = sum(abs(stirling1(n+1,k+1))*stirling2(n,k),k=0..n).
%H Vincenzo Librandi, <a href="/A192549/b192549.txt">Table of n, a(n) for n = 0..47</a>
%t Table[Sum[Abs[StirlingS1[n+1,k+1]]StirlingS2[n,k],{k,0,n}],{n,0,100}]
%o (Maxima) makelist(sum(abs(stirling1(n+1,k+1))*stirling2(n,k),k,0,n),n,0,24);
%K nonn
%O 0,3
%A _Emanuele Munarini_, Jul 04 2011