OFFSET
1,1
COMMENTS
Lengths of runs of the same values: 2, 3, 7, 16, 37, 86, 200, 465.
MATHEMATICA
Function[s, Table[SequencePosition[s, Take[s, n]][[2, 1]], {n, 60}]]@
Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {2, 1}, 2 -> 0}] &, {0}, 10] (* Michael De Vlieger, Jun 06 2017, after Clark Kimberling at A287108 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 04 2017
STATUS
approved