A185739 Accumulation array of A185738, by antidiagonals.

1, 3, 4, 6, 10, 11, 10, 18, 25, 26, 15, 28, 42, 56, 57, 21, 40, 62, 90, 119, 120, 28, 54, 85, 128, 186, 246, 247, 36, 70, 111, 170, 258, 378, 501, 502, 45, 88, 140, 216, 335, 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

Offset: 1

Author

Clark Kimberling, Feb 02 2011

Keywords

• nonn
• tabl

Comments

This arrays is a member of a chain; see A185738.

Examples

			Northwest corner:
1....3....6....10....15
4....10...18...28....40
11...25...42...62....85
26...56...90...128...170
		

Links

• G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened

Crossrefs

Rows 1 to 4: A000217, A028562, A140675, 2*A098847

Columns 1 to 3: A000295, A000247, A068293.

Cf. A185738, A185740.

Programs

Mathematica

(* See A185738 *)
f[n_, k_] := (k/2)*(4*(2^n - 1) + (k - 3)*n);
TableForm[Table[f[n, k], {n, 1, 10}, {k, 1, 10}]]  (* Array A185739 *)
Table[f[n - k + 1, k], {n, 10}, {k, n, 1, -1}] // Flatten (* G. C. Greubel, Jul 11 2017 *)

Formula

T(n,k) = k*(4*(2^n-1)+(k-3)*n), k>=1, n>=1.