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

%I #6 Jan 04 2017 02:43:57

%S 1,2,8,39,214,1274,8028,52698,356630,2470848,17440690,124981126,

%T 906887612,6650054278,49202240010,366856871768,2753772204894,

%U 20793368929970,157831516488476,1203618076715682,9217256564429454,70852472349915280

%N Transform of A059226 applied to sequence 1, 1, 1, 1, 1, 1, 1, ...

%H G. C. Greubel, <a href="/A059275/b059275.txt">Table of n, a(n) for n = 0..250</a>

%t T[i_, j_]:= T[i, j] = Module[{r, s, t1}, If[i == 0 && j == 0, Return[1]];

%t If[j == 0, Return[1]]; t1 = T[i, j - 1]; For[r = 0, r <= i - j, r++,

%t For[s = 0, s <= j, s++, If[r + s != i, t1 = t1 + T[r + s, s]]]];

%t Return[t1]]; Table[T[n, n], {n, 0, 25}] (* _G. C. Greubel_, Jan 04 2017 *)

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

%K nonn

%O 0,2

%A _N. J. A. Sloane_, Jan 24 2001