OFFSET
1,2
COMMENTS
EXAMPLE
Table begins:
1,
2,1,
0,0,1,
6,3,0,1,
0,0,0,0,1,
0,0,4,0,0,1,
0,0,0,0,0,0,1,
30,15,0,5,0,0,0,1,
MATHEMATICA
m = 14; t = Inverse[ Table[ Which[n == k, 1, n == 2*k, -k - 1, True, 0], {n, 1, m}, {k, 1, m}]]; Flatten[ Table[t[[n, k]], {n, 1, m}, {k, 1, n}]] (* Jean-François Alcover, Jul 19 2012 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Mats Granvik, Jan 20 2009
STATUS
approved