%I #7 Mar 11 2021 21:08:20
%S 4,3,2,7,16,15,14,75,74,73,72,296,295,294,293,292,291,290,442,441,440,
%T 439,438,437,436,435,434,433,6253,6252,6251,6250,6249,6248,6247,6246,
%U 6245,6244,6243,6242,6241,6240,6239,9379,9378,9377,9376,9375,9374,9373
%N Least k>1 such that first n terms of Kolakoski sequence A000002 repeat in reverse order beginning at k-th term.
%t (* Here, the condition k>1 is removed, so the 1st term is 1 instead of 4. *)
%t n = 28; w = Prepend[Nest[Flatten[Partition[#, 2] /. {{2, 2} -> {2, 2, 1, 1}, {2, 1} -> {2, 2, 1}, {1, 2} -> {2, 1, 1}, {1, 1} -> {2, 1}}] &, {2, 2}, n], 1];
%t wStr = ToString[FromDigits[w]];
%t Map[StringPosition[wStr, StringReverse[StringTake[wStr, #]],1][[1]][[1]] &, Range[100]] (* _Peter J. C. Moses_, Feb 18 2021 *)
%Y Cf. A000002, A022294.
%K nonn
%O 1,1
%A _Clark Kimberling_