A243736 Sum of the numbers in row n of the array at A242365.

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

Links

Table of n, a(n) for n=1..30.

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

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

Sequence in context: A159338 A159339 A159337 * A316772 A123440 A071314

Adjacent sequences: A243733 A243734 A243735 * A243737 A243738 A243739

Keyword

nonn,easy

Author

Clark Kimberling, Jun 11 2014

Status

approved