login
A334496
Eventual period of a single cell in rule 30 cellular automaton in a cyclic universe of width n.
21
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
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. also A334497.
Sequence in context: A086730 A249449 A357466 * A258988 A139721 A307384
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 05 2020
EXTENSIONS
More terms from Bert Dobbelaere, May 09 2020
STATUS
approved