The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A243735 Sum of the numbers in row n of the array at A242364. 4
 1, 2, 3, 6, 10, 16, 26, 46, 88, 174, 342, 660, 1258, 2398, 4616, 8998, 17710, 35028, 69378, 137430, 272344, 540334, 1073798, 2137396, 4259770, 8496366, 16954536, 33843606, 67575358, 134965204 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS 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 Cf. A242364, A242365, A243736, A242448, A000045. Sequence in context: A201077 A023655 A023561 * A034419 A201864 A198200 Adjacent sequences:  A243732 A243733 A243734 * A243736 A243737 A243738 KEYWORD nonn,easy AUTHOR Clark Kimberling, Jun 11 2014 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 23 12:53 EDT 2020. Contains 337310 sequences. (Running on oeis4.)