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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 05 2020
EXTENSIONS
More terms from Bert Dobbelaere, May 09 2020
STATUS
approved