login
Indices of records in A094605.
1

%I #15 Jul 27 2023 11:28:27

%S 1,2,4,5,7,8,10,16,17,25,26,28,30,35,37,38,40,42,44

%N Indices of records in A094605.

%H Michael Brunnbauer, <a href="https://brunni.de/findings30/">Diagonals in elementary cellular automaton 30</a>, 2019 (<a href="/A364238/a364238.pdf">local PDF copy</a>, with author's permission).

%H Eric S. Rowland, <a href="https://wpmedia.wolfram.com/uploads/sites/13/2018/02/16-3-4.pdf">Local Nested Structure in Rule 30</a>, Complex Systems 16 (2006), pp. 239-258.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Rule30.html">Rule 30</a>.

%H Stephen Wolfram, <a href="https://www.wolframscience.com/nks/notes-2-1--rule-30/">Notes on chapter 2, Rule 30</a>, from A new kind of science online, Wolfram Media, 2002.

%H <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>

%t nn = 1000; s = CellularAutomaton[30, {{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 *)

%Y Cf. A070950, A094605, A363343.

%K nonn,hard,more

%O 1,2

%A _Paolo Xausa_, Jul 15 2023