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,4

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

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 *)

Crossrefs

Cf. A085587, A180001, A334499-A334515.

Cf. also A334497.

Sequence in context: A086730 A249449 A357466 * A258988 A139721 A307384

Adjacent sequences: A334493 A334494 A334495 * A334497 A334498 A334499

Keyword

nonn

Author

N. J. A. Sloane, May 05 2020

Extensions

More terms from Bert Dobbelaere, May 09 2020

Status

approved