A334496 Eventual period of a single cell in rule 30 cellular automaton in a cyclic universe of width n.

1, 1, 1, 8, 5, 1, 4, 40, 72, 15, 154, 102, 260, 1428, 1455, 6016, 10846, 2844, 247, 3420, 597, 3256, 38249, 185040, 588425, 312156, 240300, 249165, 833808, 374265, 2841150, 842528, 1049268, 5656002, 18480630, 2844, 49276415, 9329228, 961272, 19211080, 51151354, 109603410

Offset: 1

Author

N. J. A. Sloane, May 05 2020

Keywords

• nonn

Comments

Bradley Klee computed a(1)-a(10).

References

• Bradley Klee, Posting to Math Fun Mailing List, Apr 26 2020

Links

• Bert Dobbelaere, Table of n, a(n) for n = 1..60

Crossrefs

Cf. A085587, A180001, A334499-A334515.

Cf. also A334497.

Programs

Mathematica

a[rule_, n_] := -Subtract @@ Flatten[Map[     Position[#, #[[-1]]] &,
     NestWhileList[CellularAutomaton[rule],
      Prepend[Table[0, {n - 1}], 1], Unequal, All], {0}]]
a[30, #] & /@ Range[10]
(* Bradley Klee, Apr 26 2020 *)

Extensions

More terms from Bert Dobbelaere, May 09 2020