OFFSET
0,5
COMMENTS
Row n has 1 + floor(n/2) terms.
Row sums are the partition numbers (A000041).
LINKS
G. C. Greubel, Table of n, a(n) for the first 100 rows, flattened
FORMULA
EXAMPLE
T(6,1)=3 because we have [4,2], [3,2,1] and [2,1,1,1,1].
Triangle starts:
1;
1;
1,1;
2,1;
3,1,1;
4,2,1;
6,3,1,1;
8,4,2,1;
MAPLE
with(combinat): T:=proc(n, k) if k=floor(n/2) then 1 elif k<=(n-2)/2 then numbpart(n-2*k)-numbpart(n-2*k-2) fi end: for n from 0 to 18 do seq(T(n, k), k=0..n) od; # yields sequence in triangular form
MATHEMATICA
nn = 20; p = Product[1/(1 - x^i), {i, 3, nn}]; f[list_] := Select[list, # > 0 &]; Map[f, CoefficientList[Series[p /(1 - x)/(1 - y x^2), {x, 0, nn}], {x, y}]] // Flatten (* Geoffrey Critzer, Jan 22 2012 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Emeric Deutsch, Feb 18 2006
EXTENSIONS
Keyword tabl changed to tabf by Michel Marcus, Apr 09 2013
STATUS
approved