A364239 Indices of records in A363345.

1, 4, 9, 30, 401, 87868

Offset: 1

Author

Paolo Xausa, Jul 15 2023

Keywords

• nonn
• hard
• more

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.
• Index entries for sequences related to cellular automata

Crossrefs

Cf. A070950, A363344, A363345.

Programs

Mathematica

nn = 1000; s = CellularAutomaton[86, {{1}, 0}, {{nn, 3 nn}, {nn, 2 nn}}]; t = Table[Length[FindRepeat[Diagonal[s, -x]]], {x, 0, nn}]; Map[FirstPosition[t, #][[1]] &, Union@ FoldList[Max, t] ] (* Michael De Vlieger, Jul 25 2023, after Paolo Xausa at A363345 *)