A243735 Sum of the numbers in row n of the array at A242364.

1, 2, 3, 6, 10, 16, 26, 46, 88, 174, 342, 660, 1258, 2398, 4616, 8998, 17710, 35028, 69378, 137430, 272344, 540334, 1073798, 2137396, 4259770, 8496366, 16954536, 33843606, 67575358, 134965204

Offset: 1

Author

Clark Kimberling, Jun 11 2014

Keywords

• nonn
• easy

Examples

			First 6 rows of the array at A242364:
1
0 .... 2
-1 ... 4
-3 ... -2 .... 3 .... 8
-7 ... -6 ... -4 .... 5 .... 6 .... 16
-15 .. -14 .. -12 .. -8 .... -5 ... 7 ... 9 ... 10 ... 12 ... 32;
the row sums are 1, 2, 3, 6, 10,16,...
		

Crossrefs

Cf. A242364, A242365, A243736, A242448, A000045.

Programs

Mathematica

z = 12; g[1] = {1}; f1[x_] := 2 x; f2[x_] := 1 - x; f3[x_] := 2 - x; h[1] = g[1]; b[n_] := b[n] = DeleteDuplicates[Union[f1[g[n - 1]], f2[g[n - 1]], f3[g[n - 1]]]]; h[n_] := h[n] = Union[h[n - 1], g[n - 1]]; g[n_] := g[n] = Complement [b[n], Intersection[b[n], h[n]]]; u = Table[g[n], {n, 1, 9}]
u1 = Flatten[u]  (* A242364 *)
v = Table[Reverse[Drop[g[n], Fibonacci[n - 1]]], {n, 1, z}]
v1 = Flatten[v]  (* A242365 *)
w1 = Table[Apply[Plus, g[n]], {n, 1, 20}]   (* A243735 *)
w2 = Table[Apply[Plus, v[[n]]], {n, 1, 10}] (* A243736 *)