%I #7 Sep 11 2017 02:55:46
%S 1,1,8,152,4493,202066,12841750,1097043147,121284672716,
%T 16850062144162,2873723485196575,590279507847844136,
%U 143737044733324878879,40943428029694983816963,13488163010054730357533318,5088553275271661089776406989
%N Main diagonal of the array A059220.
%H G. C. Greubel, <a href="/A059510/b059510.txt">Table of n, a(n) for n = 1..240</a>
%t t[0, 0] = 1; t[0, _?EvenQ] = 0; t[_?OddQ, 0] = 0; t[n_, k_] /; OddQ[n + k] (*up*):= t[n, k] = t[n + 1, k - 1] + Sum[t[n, j], {j, 0, k - 1}];
%t t[n_, k_] /; EvenQ[n + k] (*down*):= t[n, k] = t[n - 1, k + 1] + Sum[t[j, k], {j, 0, n - 1}]; Table[t[n, n], {n,0,50}] (* _G. C. Greubel_, Sep 10 2017 *)
%K easy,nonn
%O 1,3
%A _Floor van Lamoen_, Jan 21 2001
%E Terms a(11) onward added by _G. C. Greubel_, Sep 10 2017