A243736 Sum of the numbers in row n of the array at A242365.

1, 2, 4, 11, 27, 70, 185, 499, 1356, 3695, 10075, 27482, 74997, 204751, 559172, 1527379, 4172439, 11398634, 31140481, 85075307, 232426476, 634995031, 1734829379, 4739627674, 12948881373, 35376966263, 96651610708, 264057013451, 721417015071, 1970947675114

Offset: 1

Author

Clark Kimberling, Jun 11 2014

Keywords

• nonn
• easy

Crossrefs

Cf. A242364, A242365, A243735, 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 *)

Formula

First 7 rows of the array at A242365:

1

2

4

8 ... 3

16 .. 6 ... 5

32 .. 12 .. 10 .. 9 ... 7

64 .. 24 .. 20 .. 18 .. 17 .. 15 .. 14 .. 13;

the row sums are 1, 2, 4, 11, 27, 70 185,...