A059275 Transform of A059226 applied to sequence 1, 1, 1, 1, 1, 1, 1, ...

1, 2, 8, 39, 214, 1274, 8028, 52698, 356630, 2470848, 17440690, 124981126, 906887612, 6650054278, 49202240010, 366856871768, 2753772204894, 20793368929970, 157831516488476, 1203618076715682, 9217256564429454, 70852472349915280

Offset

0,2

Links

G. C. Greubel, Table of n, a(n) for n = 0..250

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, n], {n, 0, 25}] (* G. C. Greubel, Jan 04 2017 *)

Crossrefs

Right diagonal of A059274. A059227 is transform of 1, 0, 0, 0, ...

Sequence in context: A236339 A292100 A185650 * A020047 A231496 A347665

Adjacent sequences: A059272 A059273 A059274 * A059276 A059277 A059278

Keyword

nonn

Author

N. J. A. Sloane, Jan 24 2001

Status

approved