cp's OEIS Frontend

A334497 Maximum value of eventual period for any starting configuration for a rule 30 cellular automaton in a cyclic universe of width n.

%I A334497 #38 Jun 29 2023 09:50:51
%S A334497 1,1,1,8,5,1,63,40,171,15,154,102,832,1428,1455,6016,10846,2844,3705,
%T A334497 6150,2793,3553,38249,185040,588425,312156,240300,249165,1466066,
%U A334497 374265,2841150,2002272,2038476,5656002,18480630,2237472
%N A334497 Maximum value of eventual period for any starting configuration for a rule 30 cellular automaton in a cyclic universe of width n.
%C A334497 _Bradley Klee_ computed a(1)-a(7).
%D A334497 Bradley Klee, Posting to Math Fun Mailing List, Apr 26 2020.
%H A334497 Dustin Gage, Elizabeth Laub and Briana McGarry, <a href="https://legacy.cs.indiana.edu/~dgerman/2005midwestNKSconference/dgelbm.pdf">Cellular Automata: Is Rule 30 Random?</a>, 2005.
%F A334497 a(n) <= A357950(n). Equality holds for n = 4, 8, 16. - _Pontus von Brömssen_, Oct 22 2022
%t A334497 a[rule_, init_] := -Subtract @@ Flatten[Map[
%t A334497      Position[#, #[[-1]]] &, NestWhileList[CellularAutomaton[rule],
%t A334497       init, Unequal, All], {0}]]
%t A334497 tri[n_] := a[30, #] & /@ Tuples[{0, 1}, n];
%t A334497 tri /@ Range[7]
%t A334497 Max /@ %
%t A334497 (* _Bradley Klee_, Apr 26 2020 *)
%Y A334497 Cf. A180001, A334496, A334499-A334515, A357950.
%K A334497 nonn,more
%O A334497 1,4
%A A334497 _N. J. A. Sloane_, May 05 2020
%E A334497 a(8)-a(12) from _Jinyuan Wang_, May 14 2020
%E A334497 a(13)-a(22) from _Pontus von Brömssen_, Oct 22 2022
%E A334497 a(23)-a(36) from _Paolo Xausa_, Jun 29 2023, using data from Gage, Laub and McGarry (2005), p. 7, Table 2.