A160121 First differences of A160120.

1, 3, 3, 9, 3, 9, 9, 21, 9, 9, 9, 21, 15, 21, 27, 51, 27, 9, 9, 21, 15, 21, 27, 51, 33, 21, 27, 51, 51, 57, 69, 117, 81, 21, 9, 21, 15, 21, 27, 51, 33, 21, 27, 51, 51, 57, 69, 117, 87, 33, 27, 51, 51, 57, 75, 129, 117, 75, 69, 117, 135, 141, 171, 279, 231, 69, 9, 21, 15, 21, 27

Offset

1,2

Comments

Number of Y-toothpicks added at n-th stage to the Y-toothpick structure of A160120.

For a simpler version, see A151710. - Omar E. Pol, Dec 18 2012

Links

JungHwan Min, Table of n, a(n) for n = 1..5000

David Applegate, Omar E. Pol and N. J. A. Sloane, The Toothpick Sequence and Other Sequences from Cellular Automata, Congressus Numerantium, Vol. 206 (2010), 157-191. [There is a typo in Theorem 6: (13) should read u(n) = 4.3^(wt(n-1)-1) for n >= 2.]

David Applegate, The movie version

Omar E. Pol, Illustration of initial terms of A139251, A160121, A147582 (Overlapping figures) [Omar E. Pol, Nov 02 2009]

N. J. A. Sloane, Catalog of Toothpick and Cellular Automata Sequences in the OEIS

Example

Contribution from Omar E. Pol, Jun 18 2009: (Start)
May be written as a triangle:
1,
3,
3,
9,
3,9,
9,21,9,9,
9,21,15,21,27,51,27,9,
9,21,15,21,27,51,33,21,27,51,51,57,69,117,81,21,
9,21,15,21,27,51,33,21,27,51,51,57,69,117,87,33,27,51,51,57,75,129,117,75,69,117,135,141,171,279,231,69;
Rows converge to A161326.
(End)
Contribution from Omar E. Pol, Dec 18 2012: (Start):
Also this sequence may be written as another triangle (according to the structure of triangle A151710):
1;
3;
3,  9;
3,  9,9,21;
9,  9,9,21,15,21,27,51;
27, 9,9,21,15,21,27,51,33,21,27,51,51,57,69,117;
81,21,9,21,15,21,27,51,33,21,27,51,51,57,69,117,87,33,27,51,51,57,75,129,117,75,69,117,135,141,171,279;
(End)

Mathematica

YTPFunc[lis_, step_] := With[{out = Extract[lis, {{1, 2}, {2, 1}, {-1, -1}}], in = lis[[2, 2]]}, Which[in == 1, 3, in == 0 && Count[out, 1] >= 2, 2, in == 0 && Count[out, 1] == 1, 1, True, in]]; A160121[n_] := Count[CellularAutomaton[{YTPFunc, {}, {1, 1}}, {{{1}}, 0}, {{{n}}}], 1, 2] (* JungHwan Min, Jan 28 2016 *)
A160121[n_] := Count[CellularAutomaton[{13390417258775213635414055181254541831894674613399006361662885886563211940509571858857491972104491013971547937418035084866785430974106432144737472376143620, 4, {{-1, 0}, {0, -1}, {0, 0}, {1, 1}}}, {{{1}}, 0}, {{{n}}}], 1, 2] (* JungHwan Min, Jan 28 2016 *)

Crossrefs

Cf. A139250, A139251, A151710, A160171, A160173, A160120, A160715, A161207, A161329, A161331, A161326, A161431, A147582.

Sequence in context: A256689 A266533 A151710 * A048883 A241717 A217883

Adjacent sequences: A160118 A160119 A160120 * A160122 A160123 A160124

Keyword

nonn

Author

Omar E. Pol, May 02 2009

Extensions

More terms from David Applegate, Jun 14 2009

Status

approved