|
%I #14 Jan 25 2020 18:05:47
%S 1,1,2,1,6,5,1,14,30,15,1,30,125,150,52,1,62,450,975,780,203,1,126,
%T 1505,5250,7280,4263,877,1,254,4830,25515,54600,53998,24556,4140,1,
%U 510,15125,116550,361452,537138,405174,149040,21147,1,1022,46650
%N Exponential transform of Stirling2 triangle A008277.
%H N. J. A. Sloane, <a href="/transforms.txt">Transforms</a>
%F E.g.f.: A(x, y) = exp(exp(y*exp(x)-y)-1).
%e Triangle begins
%e 1;
%e 1, 2;
%e 1, 6, 5;
%e 1, 14, 30, 15;
%e 1, 30, 125, 150, 52; ...
%t nn=8; a=Exp[x]-1; Drop[Map[Select[#, #>0&]&, Range[0,nn]! CoefficientList[Series[Exp[Exp[y a]-1], {x,0,nn}], {x,y}]], 1]//Grid (* _Geoffrey Critzer_, Sep 22 2013 *)
%Y Row sums give A000258.
%K nonn,tabl
%O 1,3
%A _Christian G. Bower_, Jun 09 2000
|
