login
A364241
a(n) is the initial transient (converted to base 10), before the periodic part, on the n-th diagonal from the left of rule-30 1-D cellular automaton, when started from a single ON cell, or -1 if there is no transient part.
3
-1, -1, 1, -1, -1, -1, -1, -1, -1, -1, 1, 1, -1, 4, 9, 0, 228, 63, 1241, 69, 7609, 2944, 11356, 255, 28487, 30890, 42037, 24160, 104333, 19167, 132196, 25361, 1042145, 473564, 4512243, 153187, 258856349, 2950249, 353554884, 104435283, 26762321451, 2005002052
OFFSET
1,14
COMMENTS
See A363346 for the length of the transients.
LINKS
Michael Brunnbauer, Diagonals in elementary cellular automaton 30, 2019 (local PDF copy, with author's permission).
Eric S. Rowland, Local Nested Structure in Rule 30, Complex Systems 16 (2006), pp. 239-258.
Eric Weisstein's World of Mathematics, Rule 30.
Stephen Wolfram, Notes on chapter 2, Rule 30, from A new kind of science online, Wolfram Media, 2002.
EXAMPLE
In the following diagram, showing the first 22 evolution steps of the CA, three diagonals are highlighted, along with their transient and periodic parts (the rest of the CA is represented by hyphens, for better visualization).
.
3rd diagonal
__ Transient = 1
- / Repeat = 0
--1 a(3) = 1
--0--
--0---- 12th diagonal
--0------ __ Transient = 01
--0--------/ Repeat = 0010
--0--------0- a(12) = 1
--0--------1---
--0--------0----- __ 20th diagonal
--0--------0-------/ Transient = 01000101
--0--------1-------0- Repeat = 1100
--0--------0-------1--- a(20) = 69
--0--------0-------0-----
--0--------0-------0-------
--0--------1-------0---------
--0--------0-------1-----------
--0--------0-------0-------------
--0--------0-------1---------------
--0--------1-------1-----------------
--0--------0-------1-------------------
--0--------0-------0---------------------
--0--------0-------0-----------------------
--0--------1-------1-------------------------
.
MATHEMATICA
A364241list[nmax_]:=With[{ca=CellularAutomaton[86, {{1}, 0}, {2nmax, {1-nmax, nmax}}]}, Map[If[#=={}, -1, FromDigits[#, 2]]&, Array[First[FindTransientRepeat[Drop[Diagonal[ca, nmax-#], Ceiling[(#-1)/2]], 2]]&, nmax]]]; A364241list[50]
CROSSREFS
Cf. A070950.
Cf. A363344 (diagonals), A363345 (periods), A363346 (length of transients), A364240 (periodic part).
Sequence in context: A135245 A135244 A334657 * A011514 A238261 A245238
KEYWORD
sign,base
AUTHOR
Paolo Xausa, Jul 15 2023
STATUS
approved