

A160121


First differences of A160120.


48



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

Number of Ytoothpicks added at nth stage to the Ytoothpick 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), 157191. [There is a typo in Theorem 6: (13) should read u(n) = 4.3^(wt(n1)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,changed


AUTHOR

Omar E. Pol, May 02 2009


EXTENSIONS

More terms from David Applegate, Jun 14 2009


STATUS

approved



