login
A243736
Sum of the numbers in row n of the array at A242365.
4
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,2
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,...
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 11 2014
STATUS
approved