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,2

Links

Table of n, a(n) for n=1..30.

Example

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,...

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

Crossrefs

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

Sequence in context: A023655 A354210 A023561 * A034419 A201864 A198200

Adjacent sequences: A243732 A243733 A243734 * A243736 A243737 A243738

Keyword

nonn,easy

Author

Clark Kimberling, Jun 11 2014

Status

approved