%I #7 Mar 30 2012 16:48:46

%S 1,1,1,1,2,3,1,3,5,8,1,4,7,12,20,1,5,9,16,28,45,1,6,11,20,36,60,95,1,

%T 7,13,24,44,75,122,191,1,8,15,28,52,90,149,238,365,1,9,17,32,60,105,

%U 176,285,444,676,1,10,19,36,68,120,203,332,523,806,1211

%N Triangular array T(n,0)= 1, T(n,k) = sum_{j=1..min(n,k)} (n-j+1)*T(j,k-j) if k>0.

%e 1; 1,1; 1,2,3; 1,3,5,8; 1,4,7,12,20; ...

%p A054250 := proc(n,k) option remember; local j; if k = 0 then RETURN(1) else add( (n-j+1)*A054250(j,k-j), j=1..min(n,k) ); fi; end;

%Y Used in A001523.

%K nonn,tabl,easy

%O 0,5

%A _N. J. A. Sloane_, May 06 2000