login
Accumulation array of A185738, by antidiagonals.
3

%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