|
%I #12 Dec 30 2016 06:10:12
%S 1,1,2,5,3,1,1,6,10,14,45,37,26,15,1,1,46,84,121,150,169,740,686,592,
%T 471,321,170,1,1,741,1428,2111,2704,3183,3532,3721,21142,20347,18826,
%U 16685,13953,10777,7255,3722,1,1,21143,41491,61798,80598
%N The array in A059216 read by antidiagonals in 'up' direction.
%H G. C. Greubel, <a href="/A059217/b059217.txt">Table of n, a(n) for the first 50 rows, flattened</a>
%e The array begins
%e 1 2 1 14 1 ...
%e 1 3 10 15 ...
%e 5 6 26 ...
%e 1 37 ...
%e 45 ...
%p See A059216 for Maple code.
%t max = 9; t[0, 0] = 1; t[0, _?EvenQ] = 1; t[_?OddQ, 0] = 1; t[n_, k_] /; OddQ[n + k](*up*):= t[n, k] = t[n+1, k-1] + Sum[t[n, j], {j, 0, k-1}]; 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-k, k], {n, 0, max}, {k, 0, n}] // Flatten (* _Jean-François Alcover_, Sep 16 2013 *)
%Y Cf. A000667, A059216, A059219, A059220, A059234.
%K easy,nonn,tabl,nice
%O 1,3
%A _Floor van Lamoen_, Jan 18 2001
|
