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