editing
proposed
Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
editing
proposed
b[n_, k_] := b[n, k] = If[n <= k, 1, 0] + Sum[b[n-2*j, k], { j, 1, Min[k, Quotient[n, 2]]}]; t[n_, k_] := b[n, k] - b[n, k-1]; Table[Table[t[n, k], {k, 1, n}], {n, 1, 14}] // Flatten (* Jean-François Alcover, Dec 13 2013, translated from Alois P. Heinz's Maple code *)
approved
editing
Charles R Greathouse IV, <a href="/A233323/b233323_1.txt">Rows n = 1..50, flattened</a>
reviewed
approved
proposed
reviewed
editing
proposed
Charles R Greathouse IV, <a href="/A233323/b233323_1.txt">Rows n = 1..40, 50, flattened</a>
if(k>n/2, && !ok,
proposed
editing
editing
proposed
T(n,2)+1 gives: = A053602(n+1) = A123231(n). T(4n-2,2n) = A011782(n-1). - Alois P. Heinz, Dec 11 2013
T(n,2)+1 gives: A053602(n+1) = A123231(n). - Alois P. Heinz, Dec 11 2013