A160120 Y-toothpick sequence (see Comments lines for definition).
0, 1, 4, 7, 16, 19, 28, 37, 58, 67, 76, 85, 106, 121, 142, 169, 220, 247, 256, 265, 286, 301, 322, 349, 400, 433, 454, 481, 532, 583, 640, 709, 826, 907, 928, 937, 958, 973, 994, 1021, 1072, 1105, 1126, 1153, 1204, 1255, 1312, 1381, 1498, 1585, 1618, 1645
Offset: 0
Keywords
Links
- JungHwan Min, Table of n, a(n) for n = 0..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
- Ayliean McDonald, Y-toothpick fractal, Twitter video (2021).
- Olbaid Fractalium, Toothpick sequence Part 2, Youtube video (2023).
- Omar E. Pol, Illustration of initial terms
- Omar E. Pol, Illustration of the structure after 17 stages
- Omar E. Pol, Illustration of the structure after 34 stages, from Applegate's movie version.
- Omar E. Pol, Illustration: Fractal recursion, general step. (1)
- Omar E. Pol, Illustration of initial terms of A139250, A160120, A147562 (Overlapping figures)
- Omar E. Pol, Illustration of initial terms of A160120, A161206, A161328, A161330 (Triangular grid and toothpicks)
- N. J. A. Sloane, Catalog of Toothpick and Cellular Automata Sequences in the OEIS
- Index entries for sequences related to toothpick sequences
- Index entries for sequences related to cellular automata
Crossrefs
Programs
-
Mathematica
YTPFunc[lis_, step_] := With[{out = Extract[lis, {{1, 2}, {2, 1}, {-1, -1}}], in = lis[[2, 2]]}, Which[in == 0 && Count[out, 2] >= 2, 1, in == 0 && Count[out, 2] == 1, 2, True, in]]; A160120[0] = 0; A160120[n_] := With[{m = n - 1}, Count[CellularAutomaton[{YTPFunc, {}, {1, 1}}, {{{2}}, 0}, {{{m}}}], 2, 2]] (* JungHwan Min, Jan 28 2016 *) A160120[0] = 0; A160120[n_] := With[{m = n - 1}, Count[CellularAutomaton[{435225738745686506433286166261571728070, 3, {{-1, 0}, {0, -1}, {0, 0}, {1, 1}}}, {{{2}}, 0}, {{{m}}}], 2, 2]] (* JungHwan Min, Jan 28 2016 *)
Extensions
More terms from David Applegate, Jun 14 2009, Jun 18 2009
Comments