A243736 - OEIS

%I #4 Jun 12 2014 21:14:02

%S 1,2,4,11,27,70,185,499,1356,3695,10075,27482,74997,204751,559172,

%T 1527379,4172439,11398634,31140481,85075307,232426476,634995031,

%U 1734829379,4739627674,12948881373,35376966263,96651610708,264057013451,721417015071,1970947675114

%N Sum of the numbers in row n of the array at A242365.

%F First 7 rows of the array at A242365:

%F 1

%F 2

%F 4

%F 8 ... 3

%F 16 .. 6 ... 5

%F 32 .. 12 .. 10 .. 9 ... 7

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

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

%t 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}]

%t u1 = Flatten[u]  (* A242364 *)

%t v = Table[Reverse[Drop[g[n], Fibonacci[n - 1]]], {n, 1, z}]

%t v1 = Flatten[v]  (* A242365 *)

%t w1 = Table[Apply[Plus, g[n]], {n, 1, 20}]   (* A243735 *)

%t w2 = Table[Apply[Plus, v[[n]]], {n, 1, 10}] (* A243736 *)

%Y Cf. A242364, A242365, A243735, A242448, A000045.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Jun 11 2014