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

Author

N. J. A. Sloane, Jan 24 2001

Keywords

• nonn

Links

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

Crossrefs

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

Programs

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 *)