|
%I #13 Apr 26 2017 21:47:22
%S 0,0,0,0,2,0,0,5,5,0,0,9,14,9,0,0,14,27,27,14,0,0,20,44,54,44,20,0,0,
%T 27,65,90,90,65,27,0,0,35,90,135,152,135,90,35,0,0,44,119,189,230,230,
%U 189,119,44,0,0,54,152,252,324,350,324,252,152,54,0
%N Array read by antidiagonals: T(n,k) = n*k*(3+n*k)/2 (n >= 0, k >= 0).
%H Robert Israel, <a href="/A285192/b285192.txt">Table of n, a(n) for n = 0..10152</a>
%F G.f. as array: xy (2-x-y+2xy)/((1-x)^3 (1-y)^3). - _Robert Israel_, Apr 26 2017
%e Array begins:
%e [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ...]
%e [0, 2, 5, 9, 14, 20, 27, 35, 44, 54, ...]
%e [0, 5, 14, 27, 44, 65, 90, 119, 152, 189, ...]
%e [0, 9, 27, 54, 90, 135, 189, 252, 324, 405, ...]
%e [0, 14, 44, 90, 152, 230, 324, 434, 560, 702, ...]
%e [0, 20, 65, 135, 230, 350, 495, 665, 860, 1080, ...]
%e [0, 27, 90, 189, 324, 495, 702, 945, 1224, 1539, ...]
%e ...
%p T:= (n,k) -> n*k*(3+n*k)/2:
%p seq(seq(T(k,n-k),k=0..n),n=0..10); # _Robert Israel_, Apr 26 2017
%t Table[# k (3 + # k)/2 &[n - k], {n, 0, 10}, {k, n, 0, -1}] // Flatten (* _Michael De Vlieger_, Apr 26 2017 *)
%Y Row 1 is A000096, row 2 is A014106, etc.
%K nonn,tabl,easy
%O 0,5
%A _N. J. A. Sloane_, Apr 26 2017, based on an email message from _Andras W. Ferencz_.
|
