%I #10 Jul 12 2017 03:18:45

%S 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,

%T 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,

%U 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

%N Weight array of A185738, by antidiagonals.

%C 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.

%H G. C. Greubel, <a href="/A185740/b185740.txt">Table of n, a(n) for the first 50 rows, flattened</a>

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

%e Northwest corner:

%e 1...1...1...1...1...1...1

%e 2...0...0...0...0...0...0

%e 4...0...0...0...0...0...0

%e 8...0...0...0...0...0...0

%t (See A185738.)

%t f[n_, k_] := 0; f[n_, 1] := 2^(n - 1); f[1, k_] := 1;

%t TableForm[Table[f[n, k], {n, 1, 10}, {k, 1, 10}]] (*Array A185740*)

%t Table[f[n - k + 1, k], {n, 50}, {k, n, 1, -1}] // Flatten (* _G. C. Greubel_, Jul 12 2017 *)

%Y Cf. A185738.

%K nonn,tabl

%O 1,3

%A _Clark Kimberling_, Feb 02 2011