A059274 Analog of A059226 in which left diagonal is all 1's.

1, 1, 2, 1, 5, 8, 1, 11, 28, 39, 1, 23, 80, 164, 214, 1, 47, 208, 548, 1010, 1274, 1, 95, 512, 1632, 3744, 6490, 8028, 1, 191, 1216, 4528, 12248, 25868, 43132, 52698, 1, 383, 2816, 11968, 37024, 90624, 181272, 294366, 356630, 1, 767

Offset

0,3

Links

G. C. Greubel, Table of n, a(n) for the first 51 rows, flattened

Example

Triangle begins with:
  1;
  1,    2;
  1,    5,    8;
  1,   11,   28,   39;
  1,   23,   80,  164,  214;
  1,   47,  208,  548, 1010, 1274;
  1,   95,  512, 1632, 3744, 6490, 8028;
  ... - G. C. Greubel, Jan 03 2017

Mathematica

T[i_, j_]:= T[i, j] = Module[{r, s, t1}, If[i == 0 && j == 0, Return[1]];
If[j == 0, Return[1]]; t1 = T[i, j - 1]; For[r = 0, r <= i - j, r++,
For[s = 0, s <= j, s++, If[r + s != i, t1 = t1 + T[r + s, s]]]];
Return[t1]]; Table[T[n, k], {n, 0, 10}, {k, 0, n}] // Flatten (* G. C. Greubel, Jan 03 2017 *)

Crossrefs

Cf. A059226, A059274.

Sequence in context: A268950 A141507 A193603 * A082635 A377661 A166623

Adjacent sequences: A059271 A059272 A059273 * A059275 A059276 A059277

Keyword

nonn,tabl,changed

Author

N. J. A. Sloane, Jan 24 2001

Status

approved