|
%I #8 Jan 04 2017 02:50:02
%S 0,2,12,70,426,2708,17846,121014,839388,5929162,42509318,308561388,
%T 2263197114,16748071210,124893822012,937612685502,7080464093282,
%U 53748285892004,409909445733950,3139241855256334,24132284421690988
%N A diagonal of triangle defined in A059226.
%H G. C. Greubel, <a href="/A059229/b059229.txt">Table of n, a(n) for n = 1..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]]; 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]]]]; Return[t1]]; Table[T[n, n - 1], {n, 1, 25}] (* _G. C. Greubel_, Jan 03 2017 *)
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Jan 19 2001
|
