%I #6 Apr 04 2024 10:29:40
%S 19,55,58,73,163,166,175,217,220,235,487,490,499,526,532,649,652,661,
%T 703,706,721,1459,1462,1471,1498,1504,1579,1585,1594,1597,1612,1945,
%U 1948,1957,1984,1990,2107,2110,2119,2161,2164,2179
%N Integers whose ternary representation consists of concatenated runs C(1)B(1)A(1)C(2)B(2)A(2)...C(k)B(k)A(k), where A(i) is a run of 1's, B(i) a run of 0's, and C(i) a run of 2's, for i = 1..k.
%t Map[#[[1]] &, Select[Map[{#, DeleteDuplicates[Partition[Map[#[[1]] &, Split[IntegerDigits[#, 3]]], UpTo[3]]] == {{2, 0, 1}}} &,
%t Range[1, 3600, 3]], #[[2]] &]] (* A371109 *)
%t m = Map[{#, IntegerString[#, 3]} &, %];
%t Map[Last, ToExpression[m]] (* this sequence *)
%t (* _Peter J. C. Moses_, Mar 06 2024 *)
%Y Cf. A007088, A371105, A371106, A371107, A371108, A371109, A371111, A371112.
%K nonn,base
%O 1,1
%A _Clark Kimberling_, Mar 31 2024
|