login
A364239
Indices of records in A363345.
2
1, 4, 9, 30, 401, 87868
OFFSET
1,2
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.
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 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Paolo Xausa, Jul 15 2023
STATUS
approved