A334496 - OEIS

%I #24 May 09 2020 05:11:37

%S 1,1,1,8,5,1,4,40,72,15,154,102,260,1428,1455,6016,10846,2844,247,

%T 3420,597,3256,38249,185040,588425,312156,240300,249165,833808,374265,

%U 2841150,842528,1049268,5656002,18480630,2844,49276415,9329228,961272,19211080,51151354,109603410

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

%C _Bradley Klee_ computed a(1)-a(10).

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

%H Bert Dobbelaere, <a href="/A334496/b334496.txt">Table of n, a(n) for n = 1..60</a>

%t a[rule_, n_] := -Subtract @@ Flatten[Map[     Position[#, #[[-1]]] &,

%t      NestWhileList[CellularAutomaton[rule],

%t       Prepend[Table[0, {n - 1}], 1], Unequal, All], {0}]]

%t a[30, #] & /@ Range[10]

%t (* _Bradley Klee_, Apr 26 2020 *)

%Y Cf. A085587, A180001, A334499-A334515.

%Y Cf. also A334497.

%K nonn

%O 1,4

%A _N. J. A. Sloane_, May 05 2020

%E More terms from _Bert Dobbelaere_, May 09 2020