A185738 -id:A185738 - cp's OEIS frontend

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

Clark Kimberling, Feb 02 2011

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

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

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

Rows 1 to 4: A000217, A028562, A140675, 2*A098847
Columns 1 to 3: A000295, A000247, A068293.
Cf. A185738, A185740.

(* 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 *)

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

A185740 Weight array of A185738, by antidiagonals.

Original entry on oeis.org

1, 1, 2, 1, 0, 4, 1, 0, 0, 8, 1, 0, 0, 0, 16, 1, 0, 0, 0, 0, 32, 1, 0, 0, 0, 0, 0, 64, 1, 0, 0, 0, 0, 0, 0, 128, 1, 0, 0, 0, 0, 0, 0, 0, 256, 1, 0, 0, 0, 0, 0, 0, 0, 0, 512, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1024, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2048, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4096, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8192

Offset: 1

Clark Kimberling, Feb 02 2011

This array is a member of a chain. See A185738. A185740 exemplifies the sort of very simple array whose successive accumulation arrays are interesting. The first two accumulation arrays of A185740 are A185738 and A185739.

			Northwest corner:
1...1...1...1...1...1...1
2...0...0...0...0...0...0
4...0...0...0...0...0...0
8...0...0...0...0...0...0

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

Cf. A185738.

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

Column 1: 2^n. Row 1: 1,1,1,1,1,1,1,1,1,1,1,... All other terms: 0.

cp's OEIS Frontend

A185739 Accumulation array of A185738, by antidiagonals.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula