%I #10 Jul 12 2017 03:18:37
%S 1,3,4,6,10,11,10,18,25,26,15,28,42,56,57,21,40,62,90,119,120,28,54,
%T 85,128,186,246,247,36,70,111,170,258,378,501,502,45,88,140,216,335,
%U 516,762,1012,1013,55,108,172,266,417,660,1030,1530,2035,2036,66,130,207,320,504,810,1305,2056,3066,4082,4083,78,154,245,378,596,966,1587,2590,4106,6138,8177,8178,91
%N Accumulation array of A185738, by antidiagonals.
%C This arrays is a member of a chain; see A185738.
%H G. C. Greubel, <a href="/A185739/b185739.txt">Table of n, a(n) for the first 50 rows, flattened</a>
%F T(n,k) = k*(4*(2^n-1)+(k-3)*n), k>=1, n>=1.
%e Northwest corner:
%e 1....3....6....10....15
%e 4....10...18...28....40
%e 11...25...42...62....85
%e 26...56...90...128...170
%t (* See A185738 *)
%t f[n_, k_] := (k/2)*(4*(2^n - 1) + (k - 3)*n);
%t TableForm[Table[f[n, k], {n, 1, 10}, {k, 1, 10}]] (* Array A185739 *)
%t Table[f[n - k + 1, k], {n, 10}, {k, n, 1, -1}] // Flatten (* _G. C. Greubel_, Jul 11 2017 *)
%Y Rows 1 to 4: A000217, A028562, A140675, 2*A098847
%Y Columns 1 to 3: A000295, A000247, A068293.
%Y Cf. A185738, A185740.
%K nonn,tabl
%O 1,2
%A _Clark Kimberling_, Feb 02 2011