%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