A287996 Position of second occurrence of first n terms in A287108.

5, 5, 11, 11, 11, 24, 24, 24, 24, 24, 24, 24, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 54, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124, 124

Offset: 1

Author

Zak Seidov, Jun 04 2017

Keywords

• nonn

Comments

Lengths of runs of the same values: 2, 3, 7, 16, 37, 86, 200, 465.

Crossrefs

Cf. A287108.

Programs

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