OFFSET
1,2
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 11 2014
STATUS
approved