A277627 Square array read by antidiagonals downwards: T(n,k), n>=0, k>=0, in which column 0 is equal to A057427: 0, 1, 1, 1, ..., and for k > 0 column k lists two zeros followed by the partial sums of column k-1.
0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 3, 1, 0, 0, 0, 0, 0, 1, 4, 1, 0, 0, 0, 0, 0, 0, 3, 5, 1, 0, 0, 0, 0, 0, 0, 0, 6, 6, 1, 0, 0, 0, 0, 0, 0, 0, 1, 10, 7, 1, 0, 0, 0, 0, 0, 0, 0, 0, 4, 15, 8, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 21, 9, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 20, 28, 10, 1
Offset: 0
Links
- G. C. Greubel, Table of n, a(n) for the first 25 antidiagonals, flattened
- OEIS Wiki, Autosequence
Crossrefs
Programs
-
Mathematica
kMax = 13; col[0] = Join[{0}, Array[1&, kMax]]; col[k_] := col[k] = Join[{0, 0}, col[k-1][[1 ;; -3]] // Accumulate]; T[n_, k_] := col[k][[n+1]]; Table[T[n-k, k], {n, 0, kMax}, {k, n, 0, -1}] // Flatten (* Jean-François Alcover, Nov 15 2016 *)
Extensions
Better definition from Omar E. Pol, Oct 25 2016
Comments