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

 

Logo


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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

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