|
%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
|
