A172528 - OEIS

%I #8 Sep 18 2013 06:17:18

%S 1,1,1,1,2,3,3,1,3,8,19,38,60,60,1,4,15,53,175,535,1490,3675,7700,

%T 12600,12600,1,5,24,111,494,2111,8634,33635,123998,428820,1373820,

%U 4003230,10325700,22522500,37837800,37837800

%N Triangular array T(n,k) n,k>=0 is the number of k letter words formed using at most 1a,2b's,3c's,...,n#'s.

%C The row lengths are n(n+1)/2 +1 (A000124).

%F E.g.f. for row n is Product_m=0...n[Sum_i=0...m[x^i/i! ]].

%e T(3,2) = 8 because there are 8 two letter words that can be formed using the letters a,b,b,c,c,c: {a, b}, {a, c}, {b, a}, {b, b}, {b, c}, {c, a}, {c, b}, {c, c}.

%e Triangle Begins

%e 1;

%e 1,1;

%e 1,2,3,3;

%e 1,3,8,19,38,60,60;

%e 1,4,15,53,175,535,1490,3675,7700,12600,12600;

%t Table[CoefficientList[Series[Product[Sum[x^i/i!, {i, 0, n}], {n, 0, m}], {x,0, (m^2 + m)/2}], x]*Table[n!, {n, 0, (m^2 + m)/2}], {m, 0,5}] // Grid

%Y The last entry in row n is A022915(n).

%K nonn,tabf

%O 0,5

%A _Geoffrey Critzer_, Feb 06 2010