%I #9 Jan 04 2017 05:15:44

%S 1,1,4,18,94,544,3370,21878,146924,1012222,7114218,50808592,367669254,

%T 2689974234,19864822564,147875395930,1108469655350,8359790718480,

%U 63387403235682,482935966313310,3695204342149004,28383451250732662

%N Last entry in n-th row of triangle defined in A059226.

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

%H <a href="/index/Bo#boustrophedon">Index entries for sequences related to boustrophedon transform</a>

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

%t If[j == 0, Return[0]]; 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 03 2017 *)

%K nonn

%O 0,3

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