editing

approved

(* Robert G. Wilson v, Jun 24 2011 *) (* Added the necessary If condition, _corrected by _Mats Granvik_, Jan 23 2012 *)

Clear[t]; t[1, 1] = 1; t[n_, 1] = 0; t[n_, k_] := t[n, k] = If[n >= k, Sum[t[n - i, k - 1], {i, 1, k - 1}], 0]; Flatten[Table[t[n, k], {n, 12}, {k, n}]] (* _Robert G. Wilson v_, Jun 24 2011 *) (* Added the necessary If condition, _Mats Granvik_, Jan 23 2012 *)

Flatten[Table[t[n, k], {n, 12}, {k, n}]]

(* Robert G. Wilson v, Jun 24 2011 *) (* Added the necessary If condition, Mats Granvik, Jan 23 2012 *)

(Excel cell formula, American) =if(column()=1, if(row()=1, 1, 0), if(row()>=column(), sum(indirect(address(row()-column()+1, column()-1, 4)&":"&address(row()-column()+column()-1, column()-1, 4), 4)), 0))

(Excel cell formula, European) =if(column()=1; if(row()=1; 1; 0); if(row()>=column(); sum(indirect(address(row()-column()+1; column()-1; 4)&":"&address(row()-column()+column()-1; column()-1; 4); 4)); 0))

approved

editing

editing

approved

Alois P. Heinz, <a href="/A177517/b177517.txt">Table of n, a(n) for n = 1..20301</a>

approved

editing

proposed

approved

editing

proposed

T(n,k) = A008302(k-2,n-k), n>=k>1. [- _R. J. Mathar, _, Dec 15 2010]

Clear[t]; t[1, 1] = 1; t[n_, 1] = 0; t[n_, k_] := t[n, k] = If[n >= k, Sum[t[n - i, k - 1], {i, 1, k - 1}], 0]; Flatten[Table[t[n, k], {n, 12}, {k, n}]] (* Robert G. Wilson v, June Jun 24 2011 *) (* Added the necessary If condition, _Mats Granvik, _, Jan 23 2012 *)

_Mats Granvik, _, _Roger L. Bagula (mats.granvik(AT)abo.fi), _, Dec 11 2010

approved

editing

Clear[t]; t[1, 1] = 1; t[n_, 1] = 0; t[n_, k_] := t[n, k] = If[n >= k, Sum[t[n - i, k - 1], {i, 1, k - 1}], 0]; Flatten[Table[t[n, k], {n, 12}, {k, n}]] (* _Robert G. Wilson v, _, June 24 2011 *) (* Added the necessary If condition, Mats Granvik, Jan 23 2012 *)

editing

approved