cp's OEIS Frontend

A185739 Accumulation array of A185738, by antidiagonals.

%I A185739 #10 Jul 12 2017 03:18:37
%S A185739 1,3,4,6,10,11,10,18,25,26,15,28,42,56,57,21,40,62,90,119,120,28,54,
%T A185739 85,128,186,246,247,36,70,111,170,258,378,501,502,45,88,140,216,335,
%U A185739 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 A185739 Accumulation array of A185738, by antidiagonals.
%C A185739 This arrays is a member of a chain; see A185738.
%H A185739 G. C. Greubel, <a href="/A185739/b185739.txt">Table of n, a(n) for the first 50 rows, flattened</a>
%F A185739 T(n,k) = k*(4*(2^n-1)+(k-3)*n), k>=1, n>=1.
%e A185739 Northwest corner:
%e A185739 1....3....6....10....15
%e A185739 4....10...18...28....40
%e A185739 11...25...42...62....85
%e A185739 26...56...90...128...170
%t A185739 (* See A185738 *)
%t A185739 f[n_, k_] := (k/2)*(4*(2^n - 1) + (k - 3)*n);
%t A185739 TableForm[Table[f[n, k], {n, 1, 10}, {k, 1, 10}]]  (* Array A185739 *)
%t A185739 Table[f[n - k + 1, k], {n, 10}, {k, n, 1, -1}] // Flatten (* _G. C. Greubel_, Jul 11 2017 *)
%Y A185739 Rows 1 to 4: A000217, A028562, A140675, 2*A098847
%Y A185739 Columns 1 to 3: A000295, A000247, A068293.
%Y A185739 Cf. A185738, A185740.
%K A185739 nonn,tabl
%O A185739 1,2
%A A185739 _Clark Kimberling_, Feb 02 2011